var
a:array [1..100] of integer;
begin
writeln ('vvedite n:');
readln(n);
writeln ('vvedite posledovatelnost');
for i:=1 to n do
readln(a[i]);
writeln ('posledovatelnost');
max:=1;
for i:=1 to n do
begin
write(a[i],' ');
if a[max]<a[i] then max:=1;
end;
writeln;
writeln ('posledovatelnost posle obrabotki');
for i:=1 to n do
begin
if ((i mod 2)=0)and(i<=(max-1)) then a[1]:=a[i]*a[max];
write(a[i],' ');
end;
end.
2.Спортлото: 6 из 49. Составьте программу, в которой загадываются, иначе говоря, создаются 6 разных чисел, значения которых никак не связаны друг с другом, а величина лежит в интервале от 1 до 49.
Указание. Для решения задачи используйте множества. Выражение random(49) +1 дает случайное целое число в интервале от 1 до 49.
PROGRAM SPORTLOTO;
var
S:SET of 1..49;
i,N:integer;
begin
ramdomize;
S:=[];
for i:=1 to 6 do
begin
repeat
N:=random(49)+1;
UNTIL not(N in S);
S:=S+[N];
end;
for i:=1 to 94 do
if i in S then writeln(i);
end.