Паскаль.Заполнить одномерный массив случайными числами от -70 до 30,посчитать сумму отрицательных элементов массива и вычислить её абсолютную величину.
Var
a:array[1..1000] of integer;
n, i, suma:integer;
begin
write(введите количество чисел массива );
readln(n);
suma:=0;
for i:=1 to n do
begin
a[i]:=random(101)-70;
if(a[i]<0) then
suma:=suma+a[i];
end;
write(массив );
for i:=1 to (n-1) do
write(a[i],, );
writeln(a[n], );
writeln(сумма отрицательных элементов ,abs(suma));
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
