Найти сумму положительных элементов массива и среднее арифметическое отрицательных - Turbo Pascal

Формулировка задачи:

Дан массив А(20), найти сумму положительных элементов массива и среднее арифметическое отрицательных.

Код к задаче: «Найти сумму положительных элементов массива и среднее арифметическое отрицательных - Turbo Pascal»

textual
var  
  i, s, count: integer;
  aver : integer;
  a: array[1 .. 20] of integer;
  
begin
  randomize;
  for i := 1 to 20 do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4);
  end;
  writeln;
  
  for i := 1 to 20 do
    if a[i] > 0 then s := s + a[i]
    else 
    begin
      inc(count);
      aver := aver + a[i];
    end;
  
  writeln('Сумма положительных элементов = ', s);
  if count > 0 then
    writeln('Среднее арифметическое отрицательных = ', aver/count:0:3)
  else
    writeln('В массиве нет отрицательных элементов');
  readln;
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы