Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
<span>1. Заходим в меню «Пуск»
</span>
<span>2. Выбираем пункт «Выполнить»
</span>
<span>3. В окошке печатаем команду «cmd»
</span>
4. Теперь мы в командной строке вводим с клавиатуры слово «mspaint». И нажимаем “Enter”
<span>Вот и все paint запущен.</span>
var a: array[1..10] of integer;
i,imin,min: integer;
begin
randomize;
write('массив: ');
for i:=1 to 10 do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
min:=a[1];
imin:=1;
for i:=2 to 10 do
if(a[i]<min) then begin
min:=a[i];
imin:=i;
end;
write('наименьший элемент: a[',imin,']=',min);
end.
Что то не складывается. 3 тур это финал .значит Михаил и Иркутянин боролись за 1 и 2 место.Первое место занял Николай значит он из Иркутска. А тут Генадий и Иркутянин 2 и 3 место