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

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

Решите пожалуйста вот это.. Создать Массив С на 30 целых чисел из диапазона (-25...25). Найти количество положительных чисел в массиве KP, отрицательных KO и нулевых KN. Заменить все отрицательные числа числом +50, а нулевые - числом +30. НАйти среднее арифметическое значение всех элементов массива. Прям совсем не умею работать с двумерными и далее массивами....

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

textual
const n = 30;
var a: array[1..n] of integer;
    average: real;
    i, KP, KO, KN: integer;
begin
  randomize;
  KP := 0;
  KO := 0;
  KN := 0;
  writeln('Массив:');
  for i := 1 to n do
    begin
      a[i] := -25 + random(51);
      write(a[i]:4);
      if a[i] > 0
        then inc(KP)
        else if a[i] < 0
          then inc(KO)
          else inc(KN)
    end;
  writeln;
  writeln('Количество положительных чисел: ', KP);
  writeln('Количество отрицательных чисел: ', KO);
  writeln('Количество чисел,  равных нулю: ', KN);
  writeln('Преобразованный массив:');
  for i := 1 to n do
    begin
      if a[i] < 0
        then a[i] := +50
        else if a[i] = 0
          then a[i] := +30;
      write(a[i]:4)
    end;
  writeln;
  average := a[1];
  for i := 2 to n do average := average + a[i];
  average := average / n;
  write('Среднее арифметическое элементов преобразованного массива: ', average:0:12);
  readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ