Что делать проанализируйте а затем запишите и выберете верные ответы

Question

Информатика: Что делать проанализируйте а затем запишите и выберете верные ответы

1234353234 · Accepted Answer

Var   a: array[1..20,1..20] of integer;   n,m,i,j,min,jm,x: integer; begin   randomize;   write( Введите размеры массива: );   readln(n,m);   writeln( Исходный массив: );   for i:=1 to n do   begin     for j:=1 to m do     begin       a[i,j]:=random(19)-9;       write(a[i,j]:4);     end;     writeln;   end;   min:=0;   for i:=1 to n do min:=min+a[i,1];   writeln( Сумма элементов 1-го столбца = ,min);   jm:=1;   for j:=2 to m do   begin     x:=0;     for i:=1 to n do       x:=x+a[i,j];     writeln(...

MOGZ ответил