var A: array [1..4,1..3] of real;
var B: array [1..4,1..3] of integer;
var i,j,max,min: integer;
begin
max:=11;
min:=11;
randomize();
writeln('Произвольная матрица B 3x4:');
For i:= 1 to 4 do
begin
For j:= 1 to 3 do
begin
B[i,j]:=random(100);
if (B[i,j]<B[min div 10,min mod 10]) then min:=i*10+j;
if (B[i,j]>B[max div 10,max mod 10]) then max:=i*10+j;
write(B[i,j]:4);
end;
writeln();
end;
writeln('Максимальный элемент матрицы B: ',B[max div 10,max mod 10]);
writeln('Минимальный элемент матрицы B: ',B[min div 10,min mod 10]);
writeln('Матрица A:');
For i:= 1 to 4 do
begin
For j:= 1 to 3 do
begin
A[i,j]:=(2*B[i,j]+B[min div 10,min mod 10])/(B[max div 10,max mod 10]);
write(A[i,j]:7:3);
end;
writeln();
end;
end.
использовать Робот
алг столбы
нач
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
нц пока справа не стена
вправокц
нц пока справа стена
закраситьвверхкц
вправо
нц пока снизу не стена
внизкц
кон
begin
var a:=ArrRandom(15,-35,50); a.Println;
Writeln('Сумма отр.=',a.Where(x->x<0).Sum,', ср.арифм.отр=',
a.Where(x->x<0).Average:0:5);
Writeln('Сумма пол.=',a.Where(x->x>0).Sum,', кол-во пол.=',
a.Where(x->x<0).Count)
end.
Тестовое решение
13 9 18 -29 -33 7 41 -15 -2 10 7 -32 13 16 -1
Сумма отр.=-112, ср.арифм.отр=-18.66667
Сумма пол.=134, кол-во пол.=6