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);

Сумму элементов массива

Program dfg; vars:real; o, k:integer; f, w, r, e:array[1 ... 10] of integer; i, t, x, g, h, j, u, y, l, d:integer; beginh:=0; d:=0; o:=1; k:=1; write ('массив1 = '); writeln (); for x:=1 to 4 do begin for i:=1 to 4 do beginr[i]:=random (10); write (r[i]); e[i]:=o*r[i]; o:=o*10; u:=0+e[i];

if r[i]=0 thenh: = h+1;

if r[i]=1 thend:=d+1; end; writeln (); end; writeln (); writeln (); write ('массив2='); writeln (); randomize; for x:=1 to 4 do begin for i:=1 to 4 do beginr[i]:=random (10); write (r[i]); e[i]:=o*r[i]; o:=o*10; u:=0+e[i];

if r[i]=0 thenh: = h+1;

if r[i]=1 thend:=d+1; end; writeln (); end; writeln (); writeln ('нули = ', h); writeln ('единицы = ', d);

end.