Question

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

Answer 1

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.

Answer 2

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.