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

Question

Тима

3 марта, 10:17

+4

Ответы (1)

Знаете ответ на вопрос?

Викула · Answer 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.