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...

Question

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);
Сумму элементов массива

Comments

50 чисел в массиве ?

---

если так то щас решу

---

а нет

---

нули не смогу подчитать

Answer 1

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.

Comments

а можете пожалуйста. каждую задачу отдельно, код перемешан, не могу разобраться

---

ок

---

var
i,t,x:integer;
begin
randomize;
writeln('массив чисел = ');
for i:=1 to 4 do
begin

for t:=1 to 4 do
begin
x:=random(10);
write(x)
end;
writeln();
end;
end.

---

первое это

---

var
i,t,x:integer;
begin
randomize;
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;
var

i,t,a,b,j:integer;
begin
j:=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.

---

третье

---

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