ПОМОГИТЕ СРОЧНОНаписать программку, в которой бы с клавиатуры юзер вводил четыре

ПОМОГИТЕ Безотлагательно
Написать программку, в которой бы с клавиатуры юзер вводил четыре числа (тип данных
real). После этого программка выводила бы на экран номер наибольшего из них. Нумерация
начинается с 1 БЕЗ использования массивов

Задать свой вопрос
1 ответ

Ответ:

var max,n:integer;

c,nom:byte;

begin

max:=-1000;

for c:=1 to 4 do

begin

writeln('Введите число под номером ', c );

readln(n);

if ngt;max then begin

max:=n;

nom:=c;

end;

end;

writeln('Максимальное число из введенных - 'max);

end.

Изъяснение:

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт