составте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводить на экран количество элементов, равных 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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
