Написать программу на Паскале:

используя цикл For (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.

Question

Информатика

Агафоника

8 января, 15:07

Написать программу на Паскале:

используя цикл For (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.

+3

Ответы (2)

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

Рубен · Answer 1

Program chik;

var i:integer;

s, a:real;

begin

s:=0;

for i:=1 to 7 do

begin

read (a) ;

s:=s+a;

end;

writeln (s) ;

end.

Анатолия · Answer 2

Program zadacha;

var

a:array[1 ... 7] of integer;

i, n:1 ... 7;

s:integer;

begin

for i:=1 to 7 do begin

writeln ('введите любые', i,'элементы') ;

readln (a[i]) ;

end;

for i:=1 to 7 do

s:=s+a[i];

writeln ('сумма всех чисел равна = ', s) ;

readln;

end.

Написать программу на Паскале:используя цикл For (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.

Написать программу на Паскале:

используя цикл For (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.