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

Question

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

Гость

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

Accepted Answer

program exp;var mas:array [1..10] of integer; i:integer;begin for i:=1 to 10 do begin mas[i]:=Random(3); if (mas[i])=1 then Writeln(i) end;end.