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

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

1)Имеется массив А из N произвольных чисел - А(N), среди которых есть положительные, отрицательные и равные нулю.Выяснить, каким по счету в очереди стоит число 3. Если троек несколько, нас интересует только первая из них. Если троек нет совсем, напечатать сообщение "Троек нет". Например, если А = { 2, 4, –3, 3, 5, –2, 1}, результат: 4. 2)Подсчитать количество положительных и отрицательных чисел и количество нулей. Например, если А = { 2, 4, –3, 0, 5, –2, 5}, результат: 4, 2, 1. 3)Найти номер максимального четного элемента в массиве. Например, если А = {2, 4, –3, 6, 2, 9, –2}, результат: 4.

Решение задачи: «Подсчитать количество положительных и отрицательных чисел и количество нулей в массиве»

Листинг программы

3)
uses crt;
var a:array[1..100] of integer;
      i,n,k:byte;
begin
 clrscr;
 writeln('Введите размерность ');
 readln(n);
 for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  if a[i] mod 2=0 then k:=i;
  write(a[i],' ')
 end;
 for i:=1 to n do
  if (a[i] mod 2=0)and(a[i]>a[k]) then k:=i;
 writeln;
 writeln(k);
 readln;
 
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

uses crt;: Подключение стандартной библиотеки ввода-вывода.
var a:array[1..100] of integer;: Объявление переменной типа массив целых чисел размером от 1 до 100.
i, n, k:byte;: Объявление трех целочисленных переменных типа байт.
begin: Начало блока кода.
clrscr;: Очистка экрана перед вводом данных.
writeln('Введите размерность ');: Вывод строки Введите размерность для ввода размера массива.
readln(n);: Чтение значения размера массива из ввода пользователя.
for i:=1 to n do: Цикл, выполняющийся n раз, начиная с i=1.
a[i]:=random(20)-10;: Заполнение массива случайными числами от -10 до 9 включительно.
if a[i] mod 2=0 then k:=i;: Если значение i является четным, то присваиваем переменной k значение i.
write(a[i],' ');: Вывод значения i с пробелом.
end;: Конец цикла.
for i:=1 to n do: Цикл, выполняющийся n раз, начиная с i=1.
if (a[i] mod 2=0)and(a[i]>a[k]) then k:=i;: Если значение i является четным и больше текущего максимального значения k, то обновляем значение k.
writeln;: Вывод строки перевода строки.
writeln(k);: Вывод значения k.
readln;: Ожидание ввода пользователя.
end;: Конец блока кода.