Question

Решить задачу с массивом в pascal.

Answer 1

uses crt;var i,j,k:integer;a:array[1..20,1..20] of integer;begin for i:=1 to 3 dofor j:=1 to 14 do read(a[i,j]);for i:=1 to 3 do beginfor j:=1 to 14 doif a[i,j]=2 then inc(k);writeln('w razdele №',i,' chislo 2 - yek: ',k);k:=0;end;end.