Регистрация
syltanchik1338
23.12.2021 21:19
Информатика
Есть ответ 👍

Заполните таблицу в тетрадях 20 ​

277
410
Посмотреть ответы 1

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

strees1
strees1
4,6(11 оценок)

//pascalabc.net v 3.3

const n = 30;

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

n3,n4,n5,i: integer;

begin

for i: =1 to n do begin

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

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

  if a[i]=4 then inc(n4);

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

end;

writeln('3 - ',n3);

writeln('4 - ',n4);

writeln('5 - ',n5);

print(a);

end.

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