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.
Все клавиши можно условно разделить на несколько групп: функциональные клавиши; Функциональные клавиши F1 — F12, размещенные в верхней части клавиатуры, заранее запрограммированы на выполнение определённых действий. Так, очень часто клавиша F1 служит для вызова справки. символьные (алфавитно-цифровые) клавиши; В центре расположены символьные клавиши, очень похожие на клавиши обычной пишущей машинки. На них нанесены цифры, специальные символы (!, :, * и так далее) , буквы русского алфавита, латинские буквы переключения алфавитов зависит от настройки клавиатуры компьютера. Чаще всего применяется одна из следующих комбинаций клавиш: Alt слева + Shift или Ctrl + Shift. Знак “+” между названиями клавиш означает, что требуемое действие выполняется только в том случае, если в нажатом состоянии будут находиться обе клавиши. Выполнять клавиатурные комбинации можно так: нажать первую из указанных клавиш и, удерживая ее нажатой, нажать вторую клавишу; обе клавиши отпустить. С символьных клавиш вы будете набирать всевозможные тексты, арифметические выражения, записывать свои программы. Буквы каждого алфавита могут быть прописными (большими) или строчными (маленькими) . Переключают режим ввода букв нажатием клавиши Caps Lock. Если горит индикатор Caps Lock – будут вводиться прописные буквы, иначе – маленькие. Вводить одну или несколько больших букв удобно с комбинации клавиш Shift + {буква}. В нижней части клавиатуры находится большая белая клавиша – пробел. Пробел используется для отделения слов и выражений друг от друга. клавиши управления курсором; Курсор ввода ( | ) – мигающая черточка, отмечающая место ввода очередного символа на экране монитора. Для перемещения курсора по тексту служат курсорные стрелки. Они перемещают курсор на одну позицию в заданном направлении. Клавиши PageUp и PageDown позволяют листать документ вверх и вниз, а Home и End переводят курсор в начало и конец строки. специальные клавиши; Специальные клавиши не собраны в одну группу, а размещены так, чтобы их было удобно нажимать. Клавиша Enter завершает ввод команды и вызывает ее выполнение. При наборе текста служит для завершения ввода абзаца. Esc – клавиша расположена в левом верхнем углу клавиатуры. Обычно служит для отказа от только что выполненного действия. Клавиши Shift, Ctrl, Alt изменяют действия других клавиш. дополнительная клавиатура. Дополнительная клавиатура – при включенном индикаторе NumLock удобная клавишная панель с цифрами и знаками, расположенными, как на калькуляторе. Если индикатор NumLock выключен, то работает режим управления курсором.
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.
функциональные клавиши;
Функциональные клавиши F1 — F12, размещенные в верхней части клавиатуры, заранее запрограммированы на выполнение определённых действий. Так, очень часто клавиша F1 служит для вызова справки.
символьные (алфавитно-цифровые) клавиши;
В центре расположены символьные клавиши, очень похожие на клавиши обычной пишущей машинки. На них нанесены цифры, специальные символы (!, :, * и так далее) , буквы русского алфавита, латинские буквы переключения алфавитов зависит от настройки клавиатуры компьютера. Чаще всего применяется одна из следующих комбинаций клавиш:
Alt слева + Shift или Ctrl + Shift.
Знак “+” между названиями клавиш означает, что требуемое действие выполняется только в том случае, если в нажатом состоянии будут находиться обе клавиши. Выполнять клавиатурные комбинации можно так: нажать первую из указанных клавиш и, удерживая ее нажатой, нажать вторую клавишу; обе клавиши отпустить.
С символьных клавиш вы будете набирать всевозможные тексты, арифметические выражения, записывать свои программы.
Буквы каждого алфавита могут быть прописными (большими) или строчными (маленькими) . Переключают режим ввода букв нажатием клавиши Caps Lock. Если горит индикатор Caps Lock – будут вводиться прописные буквы, иначе – маленькие.
Вводить одну или несколько больших букв удобно с комбинации клавиш Shift + {буква}.
В нижней части клавиатуры находится большая белая клавиша – пробел. Пробел используется для отделения слов и выражений друг от друга.
клавиши управления курсором;
Курсор ввода ( | ) – мигающая черточка, отмечающая место ввода очередного символа на экране монитора. Для перемещения курсора по тексту служат курсорные стрелки. Они перемещают курсор на одну позицию в заданном направлении.
Клавиши PageUp и PageDown позволяют листать документ вверх и вниз, а Home и End переводят курсор в начало и конец строки.
специальные клавиши;
Специальные клавиши не собраны в одну группу, а размещены так, чтобы их было удобно нажимать.
Клавиша Enter завершает ввод команды и вызывает ее выполнение. При наборе текста служит для завершения ввода абзаца.
Esc – клавиша расположена в левом верхнем углу клавиатуры. Обычно служит для отказа от только что выполненного действия.
Клавиши Shift, Ctrl, Alt изменяют действия других клавиш.
дополнительная клавиатура.
Дополнительная клавиатура – при включенном индикаторе NumLock удобная клавишная панель с цифрами и знаками, расположенными, как на калькуляторе.
Если индикатор NumLock выключен, то работает режим управления курсором.