Сгенерировать 5 неповторяющихся случайных целых - вопрос №84962945145 от kiri4nko 08.04.2021 02:14

Question

Информатика: Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45. это работа с множествами pascal abc

kiri4nko · Answer

Program n_2;var  i:integer;  a:array [1..5] of integer;begin  randomize;  for i:= 1 to 5 do    a[i]:=random(44)+1;  for i:= 1 to 5 do    writeln( a[i]= ,a[i]);end....