Регистрация
лусине2007
19.07.2020 21:10
Информатика
Есть ответ 👍

Заполнить схему по Информатике.

167
278
Посмотреть ответы 1

Ответы на вопрос:

карина2148
карина2148
4,7(80 оценок)
Const n=3; m=4; var a: array [1..n,1..m] of integer;     k,sum,min,i,j: integer; begin randomize; writeln(': '); for i: =1 to n do begin   for j: =1 to m do begin     a[i,j]: =random(20)-10;     write(a[i,j]: 6);   end;   writeln; end; // а k: =0; for j: =1 to m do   if a[3,j]< 0 then k: =k+1; writeln('k=',k); // б sum: =0; for i: =1 to n do   for j: =1 to m do sum: =sum+a[i,j]; writeln('sum=',sum); // в min: =a[1,1]; for i: =2 to n do   if a[i,1]< min then min: =a[i,1]; writeln('min=',min); end.

Популярно: Информатика