Program n1;
Uses CRT;
Const n=10;
Var a: array[1..n] of integer;
i,max,k: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
For i:=1 to n do
If a[i] mod 2=0 then
If a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln;
Writeln('Элемент ',max,' с номером ',k);
readln
end.
Инструкция по настройке бытового прибора.
Инструкция на автомате для продажи кофе
Инструкция по устранению неполадок в работе устройства.
Канада, Бразилия, Япония - морские державы
Канада, Бразилия, США - страны Западного полушария (страны Северной и Южной Америки)
Канада, Мексика, США - страны Северной Америки
Амазонка, Енисей, Нил - крупнейшие реки мира
Волга, Амур, Иртыш - реки России
Лаура, Эльба, Висла - реки Европы
Принтер, монитор, клавиатура - устройства ПК
Клавиатура, сканер, мышь - устройства ввода
Берёза, жасмин, ромашка - растения
Яблоня, груша, вишня - плодовые культуры
На гибких магнитных дисках (дискетах).
Остальные носители, CDRom, USB-Flash, HDD, обычно защищены от такого.