Информатика, 04.07.2020 11:41, 20736

Исправьте ошибки 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.

Всего ответов: 2

Другие вопросы по Информатике

Знаешь правильный ответ?
Исправьте ошибки Program massiv; Const n=10; Var a:array[1..n] of integer; s, i: integer; Begin Writ...

Вопросы по предметам