Question

Дан целочисленный массив состоящий из 30 элементов. Вывести кол-во положительных,отрицательных и нулевых элементов. Программа нужна для паскаль ABC, желательно объяснить что и как получилось, если не трудно, заранее спасибо.

Answer 1

Const
n1=1000;
type
mas=array[1..n1]of integer;
var
a:mas;
i,kpol,kotr,knuley,n:integer;
begin
randomize;
readln(n);
for i:=1 to n do a[i]:=random(31)-5;
for i:=1 to n do write(a[i],' '); writeln;
kpol:=0;kotr:=0;knuley:=0;
for i:=1 to n doif a[i]<0 then kotr:=kotr+1 else
if a[i]>0 then kpol:=kpol+1 else
if a[i]=0 then knuley:=knuley+1;
writeln(kotr);
writeln(kpol);
writeln(knuley);end.

Answer 2

Для решения данной задачи в Pascal ABC можно использовать следующий алгоритм:

1. Создадим целочисленный массив с 30 элементами. 2. Инициализируем переменные для подсчета количества положительных, отрицательных и нулевых элементов. 3. Пройдемся по каждому элементу массива в цикле. 4. Если элемент больше нуля, увеличим счетчик положительных элементов на 1. 5. Если элемент меньше нуля, увеличим счетчик отрицательных элементов на 1. 6. Если элемент равен нулю, увеличим счетчик нулевых элементов на 1. 7. Выведем значения счетчиков на экран.

Пример кода на Pascal ABC:

program CountElements;

var
  arr: array[1..30] of integer;
  positiveCount, negativeCount, zeroCount, i: integer;

begin
  // Инициализация массива
  for i := 1 to 30 do
  begin
    // Пример заполнения массива случайными числами от -10 до 10
    arr[i] := Random(21) - 10;
  end;

// Инициализация счетчиков
  positiveCount := 0;
  negativeCount := 0;
  zeroCount := 0;

// Подсчет количества положительных, отрицательных и нулевых элементов
  for i := 1 to 30 do
  begin
    if arr[i] > 0 then
      positiveCount := positiveCount + 1
    else if arr[i] < 0 then
      negativeCount := negativeCount + 1
    else
      zeroCount := zeroCount + 1;
  end;

// Вывод количества положительных, отрицательных и нулевых элементов
  writeln('Количество положительных элементов: ', positiveCount);
  writeln('Количество отрицательных элементов: ', negativeCount);
  writeln('Количество нулевых элементов: ', zeroCount);
end.

В данном коде используется цикл `for` для прохода по каждому элементу массива. Проверка условий `if` и `else if` позволяет определить, является ли элемент положительным, отрицательным или нулевым, и соответственно увеличивает соответствующий счетчик. В конце программа выводит значения счетчиков на экран.