Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
подвести курсор к элементу удаления
нажать клавишу backspace.
найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.
program summa;
var a: array[1..100] of real;
i, n: integer;
s: real;
begin
write (‘n=’); readln (n);
s: =0;
for i: =1 to n do
write (‘введитечисло’); readln (a[i]);
s: =s+a[i];
end;
writeln(‘сумма элементов равна ‘,s);
end.
Популярные вопросы