1)Вывести массив 4*4
1 3 5 7
1 3 5 7
1 3 5 7
1 3 5 7
2)Массив 4*4
0010
0100
0000
1100
Подсчитать количество нулей и единиц
3)Случайным образом вывести массив 5*5 (50)
A[I,j]:= random (50);
Сумму элементов массива

vari,t,x:integer;beginrandomize; writeln('массив чисел = ');for i:=1 to 4 do begin for t:=1 to 4 do begin x:=random(2); write(x) end; writeln(); end;end.

второе

program dfg;vari,t,a,b,j:integer;beginj:=0;randomize; writeln('сумма массива = ');for i:=1 to 5 do begin for t:=1 to 5 do begin b:=random(50); randomize; a:=random(50); j:=j+b+a; end; end; write(j)end.

третье

второе не правильно нули под читать забыл