Question

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

Answer 1

1 for i:=1 to 10 do
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;

Answer 2

спасибо:)