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

Question

Давид

16 марта, 01:01

+5

Ответы (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.