Вывести на экран матрицу 6x6, элементами которой являются целые случайные числа из интервала [20,50]. определить сумму мини-мальных элементов строк матрицы.

pascalabc.net

begin

  var a : = matrrandom(6, 6, 20, 50);

  a.println(3);

  a.rows.select(r -> r.min).sum.println

end.

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.