Найдите количество отрицательных элементов массива - Pascal ABC

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

1. дан массив из 10 целых чисел, вводимых случайно на [-50;50]. найдите количество отрицательных элементов.

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

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

uses crt;
var a: array [1..10] of integer;
    i,k: integer;
begin
writeln('Дан массив');
for i:=1 to 10 do
    begin
    a[i]:=random(101)-50;
    write(a[i]:4);
    if a[i]<0 then inc(k);
    end;
writeln;
writeln('Количество отрицательных ',k);
end.

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

В первой строке подключается модуль CRT, который позволяет использовать функции ввода-вывода.
Далее объявляется массив a размером 10 элементов для хранения целых чисел.
Затем объявляются две переменные i и k типа integer, которые будут использоваться в цикле и для подсчета количества отрицательных чисел соответственно.
В цикле for от 1 до 10 происходит заполнение массива a случайными числами от -50 до 50 с шагом 1.
После заполнения каждого элемента массива его значение выводится на экран с помощью функции write, а также проверяется на отрицательность с помощью условного оператора if. Если элемент отрицательный, то к переменной k прибавляется единица.
После завершения цикла выводится количество отрицательных чисел с помощью функции writeln.
Программа завершается.