Введите случайным образом 10 массивов от 1 до 5 и найдите их сумму. Выведите на экран полученное число
помогите ,пожалуйста !

1

Ответы и объяснения

  • TTPEK
  • середнячок
2014-02-21T20:21:15+00:00
Я слишком мало спал поэтому туплю, но насколько я понял что-то типа этого
var
x,i:integer;
a0,a1,a2,a3,a4,a5,a6,a7,a8,a9:array [1..5] of integer;
begin
for i:= 1 to 5 do
a0[i]:=random(5)+1;
for i:= 1 to 5 do
a1[i]:=random(5)+1;
for i:= 1 to 5 do
a2[i]:=random(5)+1;
for i:= 1 to 5 do
a3[i]:=random(5)+1;
for i:= 1 to 5 do
a4[i]:=random(5)+1;
for i:= 1 to 5 do
a5[i]:=random(5)+1;
for i:= 1 to 5 do
a6[i]:=random(5)+1;
for i:= 1 to 5 do
a7[i]:=random(5)+1;
for i:= 1 to 5 do
a8[i]:=random(5)+1;
for i:= 1 to 5 do
a9[i]:=random(5)+1;
for i:=1 to 5 do
x:=x+a0[i];
for i:=1 to 5 do
x:=x+a1[i];
for i:=1 to 5 do
x:=x+a2[i];
for i:=1 to 5 do
x:=x+a3[i];
for i:=1 to 5 do
x:=x+a4[i];
for i:=1 to 5 do
x:=x+a5[i];
for i:=1 to 5 do
x:=x+a6[i];
for i:=1 to 5 do
x:=x+a7[i];
for i:=1 to 5 do
x:=x+a8[i];
for i:=1 to 5 do
x:=x+a9[i];
writeln(x);
end.