Задание:
Написать программу на Паскале: «найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончанияввода – ввод числа 0."
Решение:
program zadacha_1; var max,rd,i,txr: integer; begini: =1; repeat; writeln ('Введи ',i,' — ое число'); readln (rd); if max Знаете другой ответ?