Задать вопрос Регистрация
Помочь другим

  • написать программу на Паскале:

    "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончания ввода – ввод числа 0." 

Ответы 1

  • program zadacha_1;

    var max,rd,i,txr:integer;

    begin

    i:=1;

    repeat;

    writeln('Введи ',i,' -ое число');

    readln(rd);

    if max<rd then txr:=i;

    i:=i+1;

    until rd=0;

    writeln('Номер максимального элемента - ',txr);

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years