Дано N чисел. НАйти максимальное число.

69

Дано N чисел. НАйти максимальное число.

категория: информатика

ответить

в избранное ссылка

50

gang69

30 августа 2022

var a,max: real; n,i: integer; begin max: =0; readln (n); for i: =1 to n do begin readln (a); if a>max then max: =a; end; writeln (max); end.

комментировать

в избранное ссылка отблагодарить

Знаете ответ?

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

Смотрите также:

Вспомните, герои каких русских народных сказок совершают выбор, определяющий…

Перевести из 2-й системы счисления в 16-ю систему счисления 111001001111001111

Запишите число 389 365 402 201

Як створити комп'ютерну гру?

Оформите в виде блок схемы алгоритм приготоления каши из топора по мотивам…

Рассчитайте объем памяти необходимой для представления одноминутного фильма на…

(1-tgx) (в степениctgx)+cos (x-y)

Написать программу для блок-схемы с использованием оператора IF… THEN

Упорядочить целочисленный массив Х по убыванию

27400

14821

Английский язык

14215

Биология

7368

719

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11817

23331

15992

Литература

73118

Математика

8151

Обществознание

465

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

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

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...