Обозначим 1а 1б 2а 2б 3а 3 б 4а 4б 5а 5б (надо обжарить 10 сторон за 5 мин)
1 мин ..... 1а 2а
2 мин..... 1б 3а
3 мин ..... 3б 4а
4 мин ..... 4б 5а
5 мин ..... 5б 2б
Ответ только на первую задачу.
крестик в таблице это не подходящая фамилия.
B) End. завершает команду выбора
Const n=3;
type lec=record
name:string;
cost:integer;
end;
var a:array [1..n] of lec;
max1:integer;
m,k,p,i:byte;
begin
for i:=1 to n do
with a[i] do begin
writeln ('Введи наименование товара');
readln (name);
writeln ('введи стоимость товара');
readln (cost);
end;
max1:=-1;
for i:=1 to n do
if a[i].cost>max1 then begin max1:=a[i].cost;
p:=i;
end;
while k<>1 do begin
for i:=1 to n do
if (i<>p) and (a[i].cost=max1) then begin m:=i;
k:=1;
end;
max1:=max1-1;
end;
writeln (a[p].name,' ',a[p].cost);
write (a[m].name,' ',a[m].cost);
readln;
end.
Const
s='вернисаж';
begin
Writeln(s[3]+copy(s,1,2)+Copy(s,4,2)+s[2]);
Writeln(Copy(s,6,3)+s[7]);
Writeln(s[4]+Copy(s,2,2)+s[1])
end.
<em><u>Результат выполнения программы:</u></em>
рвение
сажа
нерв