запусти несколько бесконечных циклов, и комп 100% висанет
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
Реферат прикрепляю потому что он сюда не влезает.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 0, 100);
a.Println
end.
Программа для решения задачи и пример её работы - в прилагаемом файле