Регистрация
Dobro118
27.09.2021 20:41
Информатика
Есть ответ 👍

Для программистов Напишите программу "Автоответчик" где можна заипортить свой модуль и показывать оттуда функции.​

191
335
Посмотреть ответы 1

Ответы на вопрос:

karlmed
karlmed
4,5(67 оценок)

const n = 30;

var a: array[1..n] of integer;

n3,n2,n5,i: integer;

begin

for i: =1 to n do begin

  a[i]: =random(2,5);

  if a[i]=3 then inc(n3);

  if a[i]=2 then inc(n2);

  if a[i]=5 then inc(n5);  

end;

writeln('3 - ',n3);

writeln('2 - ',n2);

writeln('5 - ',n5);

print(a);

end.

Популярно: Информатика