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

  • Ввести пять чисел и найти наибольшее из них.4 15 9 56 4

    question img

Ответы 1

  • var a:array[1..5,1..5]of integer;

    i,n,max:integer; 

    begin

    readln(n);

    for i:=1 to n do

    readln(a[i]);

    max:=a[1];

    for i:=1 to n do 

    if a[i]>max then max:=a[i];

    writeln(max);

    end.

     

     

     

     

     

     

     

     

     

     

     

     

     

    • Автор:

      rojas
    • 6 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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