Pascal вычислить сумму элементов массива заданной длины(array)

kiriukhina2007 kiriukhina2007    1   01.07.2019 09:20    2

Ответы
AnitaGo AnitaGo  02.10.2020 17:17
Uses Crt;
const
m=1000;
var
a:array[1..m]of integer;
i,s,n:integer;
  begin
  clrscr;
    writeln(' Введите длину массива');
    readln(n);
Writeln('Введите массив через пробел');
       for i:=1 to n do
          begin
            read(a[i]);
            s:=s+a[i];
          end;
writeln(s);
readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика