Или используй расширенный поиск.

Помогите решить задачу в Pascal Дан массив целых чисел, состоящий из 30 элементов. За??олнить

Помогите решить задачу в Pascal
Дан массив целых чисел, состоящий из 30 элементов. За??олнить его датчиком случайных чисел. Найти сумму отрицательных элементов.
Категория: Информатика 3 года назад
На вопрос 3 года назад
ГУЛЯ ЗИМИНА

Ответы (1)

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.
Ответ получен 3 года назад
Инна Конькова
Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт