Укажите, какая по вашему мнению строка пропущена в данной части программы для поиска первого из минимальных элементов массива?
min:=1;
for i:=2 to n do
...
then min:=i;

По горизонтали:1. Гибкий магнитный диск.2. Устройство для вывода информации на бумажный носитель.3. Запоминающее устройство.4. Жесткий диск.5. Устройство ввода информации.6. Устройство ввода информации с бумажного носителя.7. Сверхоперативная память.По вертикали:3. Устройство обработки информации.5. устройство вывода информации.8. Вычислительная система.7. Клавишное устройство ввода информации.9. система проводов. ответы:По горизонтали:1. дискета, 2. принтер, 3. память, 4. винчестер, 5. мышь, 6. сканер, 7. кэш.По вертикали:3. процессор, 5.монитор, 8. компьютер, 7.клавиатура, 9.ю шина.

Var
n1,n2,n3,n4,n5:integer;
begin
Readln(n1,n2,n3,n4,n5);
If (n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) then
writeln('Максимальное число: ',n1)
else If (n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) then
writeln('Максимальное число: ',n2)
else If (n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) then
writeln('Максимальное число: ',n3)
else If (n4>n1) and (n4>n3) and (n4>n2) and (n4>n5) then
writeln('Максимальное число: ',n4)
else
writeln('Максимальное число: ',n5);
end.