Написать программу формирования массива из 10 чисел ( вод с клавиатуры) и подсчитать суммы элемента мпомагите пожалуйста
Написать программу формирования массива из 10 чисел ( вод с клавиатуры) и подсчитать суммы элемента мпомагите пожалуйста
Гость
Ответ(ы) на вопрос:
Гостьизи
var
massiv : array [1..100] of longint;
summa,i : longint;
begin
for i:=1 to 10 do begin readln(massiv[i]); summa:=summa+a[i]; end;
writeln(summa);
end.
Не нашли ответ?
Похожие вопросы