Предмет: Информатика,
автор: Panda7137
Помогите решить задачу в Pascal
Дан массив целых чисел, состоящий из 30 элементов. Заполнить его датчиком случайных чисел. Найти сумму отрицательных элементов.
Ответы
Автор ответа:
0
var n,sum:integer;
arr: array [0..30] of integer;
begin
sum:=0;
randomize;
for n:=0 to 29 do begin
arr[n]:=random(1000)-500;
if (arr[n]<0) then sum:=sum+arr[n];
end;
writeln('сумма отрицательных чисел = ',sum);
end.
arr: array [0..30] of integer;
begin
sum:=0;
randomize;
for n:=0 to 29 do begin
arr[n]:=random(1000)-500;
if (arr[n]<0) then sum:=sum+arr[n];
end;
writeln('сумма отрицательных чисел = ',sum);
end.
Похожие вопросы
Предмет: Математика,
автор: altinayzhumkeeva
Предмет: Математика,
автор: darka8248
Предмет: Информатика,
автор: saskehard
Предмет: Геометрия,
автор: krasotka5754
Предмет: Информатика,
автор: Pretecs