Составьте программу, которая заполняет массив a[1...10] случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1
Answers & Comments
sam671 for i:=1 to 10 do 2 begin 3 x[i]:= random(0)-2; 4 write(x[i]:1); 5 end;
Answers & Comments
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;