Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
Количество событий было равно двум в девятой степени или 512.
Возможно, имеется в виду вот это:
12/2=6?
Про алгоритм говорят - выполнить, а про задачу - решить.
Информационный объём текста-6*5=30бит=10байт
на диске- 4кбайт(проверил)