Студенты института изучают в каждом семестре по десять дисциплин. в рассписание занятий включаются каждый - id209874420210209 от Neuch18 09.02.2021 19:02

Question

Информатика: Студенты института изучают в каждом семестре по десять дисциплин. в рассписание занятий включаются каждый день по 3 дисциплины. сколько разлицныхрассписаний может составить диспетчерская?

Neuch18 · Accepted Answer

Задача №1 var a:array [1..20] of integer;      i:integer; begin  randomize;    for i:=1 to 20 do begin    a[i]:=random(19-(-10)+1)+-10;      write (a[i], );            end; end. Задача №2 var a:array [1..20] of integer;  i:integer;  begin  writeln( Введите числа в интервале [-20;29] );  for i:=1 to 10 do read(a[i]);  for i:=1 to 10 do  if (a[i] -29) and (a[i] 20) then write(a[i], );  end. Задача №3 var a:array [1..20] of integer;  i,sum:integer;  begin  randomize;  sum:=0;  for i:=1 to 20 do  begin ...

MOGZ ответил