А)1. наливаем 8л (0_8)
2. выливаем 8л в 3л (3_5)
3. выливаем из 3л (0_5)
4. выливаем из 8л (3_2)
5. выливаем из 3л (0_2)
6. выливаем из 8л в 3л (2_0)
7. наливаем в 8л (2_8)
8. выливаем из 8л в 3л (3_7)
б) нет
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.
.cdr - не подходит под формат для сохранения растровых изображений