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

Составьте програму которая заполнят массив a[1..2] случайными целыми числами в диапозоне от 0 до 2 и выводит на экран количество равных элементов равных 1
Гость
Ответ(ы) на вопрос:
Гость
Program enot; Var a: array [1..2] of integer;  i:integer; begin for i:= 1 to 2 do begin a[i]:=random(3); writeln(a[i]); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы