Заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела. Найдите количество элементов массива, равных 3. (Pascal ABC)

Question

Информатика

Дроня

28 апреля, 16:06

Заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела. Найдите количество элементов массива, равных 3. (Pascal ABC)

+1

Ответы (1)

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

Ермиония · Answer 1

Var x, i:integer;

mass:array[1 ... 15]of integer;

begin

randomize;

x:=0;

for i:=1 to 15 do

begin

mass[i]:=random (20) + 1;

if mass[i]=3 then x:=x+1;

write (mass[i]+' ') ;

end;

writeln ('') ;

writeln ('количество элементов равных трем = '+x) ;

end.