Найти сумму пяти элементов массива случайными числами из интервала [-20;20] Массивом плиз
Найти сумму пяти элементов массива случайными числами из интервала [-20;20] Массивом плиз
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы