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

1

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

2013-10-20T23:05:15+04:00
for i:=1 to 10 do
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;