Найти сумму пяти элементов массива случайными числами из интервала [-20; 20] массивом

mashakesea03 mashakesea03    2   27.08.2019 18:40    1

Ответы
Makaezhik02 Makaezhik02  31.08.2020 22:37
Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(41)-20;
    Write(' ',A[i]);
    S:=S+1;
    End;
WriteLn;
WriteLn('Сумма элементов: ',S);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы