задача: Дан массив A состоящий из 10 элементов,заполнить его случайными числами и найти...

Question

задача:

Дан массив A состоящий из 10 элементов,заполнить его случайными числами и найти сумму элементов.

решите задачу несколькими спосабами

Answer 1

var
i,a,b:integer;
x: array[1..15] of integer;
begin
a:=0;
b:=0;
for i:=1 to 15 do
begin
begin
x[i]:=random(15);
write(x[i]:4);
end;
if (x[i]>=0)and(x[i] mod 3=0) then
b:=b+1;
end;
writeln;
writeln;
for i:=1 to 10 do
begin
a:=a+x[i];
end;
write('суммa = ',a);
end.

 

 

--{

program zadacha (input, output) ; (ввод-вывод элементов массива}
var
a: array [1..10] of integer; 
i: integer; 
begin
randomize;
for i:=1 to 10 do 
begin
a[i]:=random(30) ;
writeln ('A(' I, ')=', a[i])
end 
end.

}--