Клавишу Shift - если я не ошибаюсь
Можно привести в пример сборку шкафа,если я правильно поняла ,что ты подразумеваешь под схемой. Там есть инструкция,по которой можно собрать шкаф. Если описание нужно такое,то можно сделать так,как возможный вариант в жизни почти любого
*Недавно мы купили шкаф в Икее. В наборе шло много креплений и собственно части шкафа. Чтобы не переделывать потом несколько раз,мы сразу решили собирать с инструкцией. Иногда были трудности,но через некоторое время шкаф был готов.*
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
var a:array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(100);
writeln (i,' элемент: ',a[i])
end
end.