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.