Question

PASCAL

Заполнить массив 20 элементов случайными числами от 0 до 10. подсчитать сколько раз встречается число 5 в массиве A.

Answer 1

uses crt;
const n=20;
var a:array[1..n] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
begin
a[i]:=random(10);
writeln(a[i]);
if a[i]=5 then inc(k);
end;
writeln;
writeln(k);
end.