Найти сумму 10 элементов массива (на языке Паскаль)
Найти сумму 10 элементов массива (на языке Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьvar
i,sum:integer;
a:array[1..10] of integer;
begin
sum:=0;
for i:=1 to 10 do
begin
a[i]:=1+random(99);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
write('Сумма: ', sum);
end.
ГостьProgram prog;
Uses crt;
var a: array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
s:=s+a[i];
end;
writeln;
writeln('Sum = ', s);
end.
Не нашли ответ?
Похожие вопросы