Question

Составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1,

Answer 1

uses crt;
var a:array [1..10] of integer;
    x,k:integer;
begin
     k:=0;
     for x:=1 to 10 do
     begin
          a[x]:=random(3);
          writeln('a[',x,']:',a[x]);
          if a[x]=1 then inc(k);
     end;
     writeln('Количество элементов, равных 1: ',k);
end.