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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы