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.