Индексу первого элемента, т.к у тебя жёсткое условие, если в массиве будет несколько максимальных элементов, то программа найдёт его и больше ничего не будет делать пока не найдёт что-то больше чем это максимальное значение
Ar
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
Жил был Билл Гейтс, и основал он компанию Microsoft, в которой родилась первая операционная графическая система MS-DOS, жалкие людишки наконец смогли по нормальному пользоваться ПК, операционная система стала сама помогать людям, спрашивать их о том, какие действия нужно совершить. После вышел Windows 95, NT, 2000, XP,7,8. И людям больше нечего было делать, только в игрушки играть, но вы! Да, да вы! Моя учительница информатики не даете мне насладиться этим чудом в полной мере. Будьте вы прокляты со своим тупым заданием. Сочинить сказку про WordPad, это просто идиотизм.
Начнем. Создали в Microsoft текстовый редактор WordPad, и людишки смогли писать на экранчиках мониторчиков. И все счастливы. Конец.
Элемент ИЛИ.
Достаточно чтобы была 1 на входах B или C или D,
чтобы на выходе была 1