Помогите, пожалуйста составить программу в PascalABC!

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

1

Ответы и объяснения

2013-12-17T16:16:15+00:00
var
a:array[1..10] of integer;
k,i:integer;
begin
randomize;
k:=0;

for i:=1 to 10 do begin
  a[i]:=random(2+1);
    if (a[i] = 1) then inc(k);
end;

writeln(k);

end.

P.S. Не забудь отметить лучший ответ! ;-)