Найти сумму 10 элементов массива (на языке Паскаль)

Question

Информатика

Сила

29 июля, 00:15

Найти сумму 10 элементов массива (на языке Паскаль)

+2

Ответы (2)

Знаете ответ?

Кима · Answer 1

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.

Препедигна · Answer 2

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.