Написать программу на Паскале:
используя цикл For (для ввода чисел) вычислить сумму семи произвольных чисел, введённых с клавиатуры.
- program chik;var i:integer;s,a:real;begins:=0;for i:=1 to 7 dobeginread(a);s:=s+a;end;writeln(s);
end.
- program zadacha;vara:array[1..7] of integer;i,n:1..7;s:integer;beginfor i:=1 to 7 do beginwriteln(‘введите любые’,i,’элементы’);readln(a[i]);end;for i:=1 to 7 do s:=s+a[i];writeln(‘сумма всех чисел равна = ‘, s);readln;
end.