Исправьте ошибки Program massiv;
Const n=10;
Var a:array[1..n] of integer;
s,i: integer;
Begin
WriteLn('Исходныймассив:');
For i:=1 to n do
begin
a[i]:=random(10);
Write('a[',i,']=',a[i],' ');
WriteLn (' ');
end;
s:=0;
For i:=1 to n do
s:=s+a[i];
WriteLn('Сумма всех элементов массива S=',s);
end.

MrAlexCross    1   04.07.2020 11:41    4