Заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите ** экран...

Question

Заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела .Найдите количество элементов массива , равных 3.(Pascal ABC)

Answer 1

Var x,i:integer;
mass:array[1..15]of integer;
begin
randomize;
x:=0;
for i:=1 to 15 do
begin
mass[i]:=random(20)+1;
if mass[i]=3 then x:=x+1;
write(mass[i]+' ');
end;
writeln('');
writeln('количество элементов равных трем = '+x);
end.