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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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