Question

заполнить массив случайными числами.найти количество чисел больше 5 (10 элементов)
составить программу на языке паскаль
​

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, count: integer;

begin

 for i := 1 to 10 do begin

   arr[i] := random(100);

   if arr[i] > 5 then inc(count);

 end;

 writeln(arr, #10, 'Элементов, которые больше 5: ', count);

end.