Информатика: Все решения с расчетами (в столбик и тд) , задания на скрине

NastyaZayatc12

26.10.2021 12:41

Информатика

Есть ответ 👍

Все решения с расчетами (в столбик и тд) , задания на скрине

286

332

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

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

KoteikaOneLove

Информатика

4,7(26 оценок)

Var a: [1..100,1..100] of integer; b: [1..100] of integer; i,j,n,m: integer; begin readln(n,m); for i: =1 to n do for j: =1 to m do a[i,j]: =random(0,3); for i: =1 to n do begin for j: =1 to m do write(a[i,j]; writeln; end; for i: =1 to n do for j: =1 to m do if (a[i,j]=1) or (a[i,j]=2) then b[j]: =b[j]+1; for i: =1 to m do write(b[i],' '); end.