Предмет: Информатика, автор: niiat

написать программу формирования массива из 10 чисел ( вод с клавиатуры) и подсчитать суммы элемента мпомагите пожалуйста

Ответы

Автор ответа: dfubyf
0
изи 
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.
Похожие вопросы