В паскале. В массиве из 10 целых чисел определить, сколько значений превышает число 3.

var

i, x : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 10] of integer; / / объявляем массив.

s : string; / / объявляем переменную строкового типа.

Begin

for i : = 1 to 10 do / / начало цикла.

begin

arr[i] : = random (-100, 100); / / заполняем массив числами из диапазона - 100; 100.

s : = s + arr[i] + ' '; / / записываем элементы массива в одну строку.

if (arr[i] > 3) then x : = x + 1; / /считаем количество элементов массива больше трёх.

end;

write ('Массив: ', s); / / вывод массива на экран.

writeln; / / переход на следующую строку.

write ('Количество элементов в массиве больше трех равно: ', x); / /вывод на экран строки.

End.