Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
фирузаалиева
24.10.2021 02:01 •
Информатика
Определить максимальное значение среди положительных элементов из n введеных
Показать ответ
Ответ:
sasasnikas
01.07.2020 01:36
Program gt;
var a,i,n,max:longint;
begin
read(N);
max:=0;
for i:=1 to n do
begin
read(A);
if(a>max)then max:=a;
end;
if(max=0)then writeln('положительных чисел нет')else writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
voronvoronov8
28.10.2020 11:08
Дописать програму Составить программу, которая бросать случайные числа из интервала от 10 до 50 пока не выпадетзаданное с клавиатуры число А (10 =A =50). Указать количество «бросков»...
t4dhjnd1u24ytgh
10.05.2022 08:57
600×800 өлшемді терезе жасап оны жасыл түске бояйтын бағдарлама коды...
kartavaia03
28.03.2023 02:58
Как в powerpoint можно сделать анимацию эту? чтобы текст по щелчку мыши менял цвет..(не на пк, а на телефоне..это очень важно.)...
refwqef
09.12.2021 22:15
НАРОД С ЗАДАНИЕМ УМАЛЯЮ ! СОСТАВИТЬ ПРОГРАММУ В ЛЮБОМ УДОБНОМ ДЛЯ ВАС ПРОГРАМНОМ ОБЕСПЕЧЕНИИ ! ОЧЕНЬ НУЖНО...
evakuleva
28.09.2022 05:09
Дан массив содержащий 100 вещественных чисел заменить первый элемент с последним второй с предпоследним и т.д....
dashani7562
14.08.2021 14:32
Для хранения изображения размером 1360х768 точек выделено 3мб памяти. определите, какое максимальное число цветов используется в изображении...
krayushkinaalina
14.08.2021 14:32
Рисунок размером 128 на 128 пикселей занимает в памяти 10 кбайт (без учета сжатия). найдите максимально возможное количество цветов в палитре изображенич...
kravts222p08eoo
17.05.2020 07:45
Сколько символов содержит сообщение, записанное с 16-символьного алфавита, если объем его составил 2 кбайт?...
Лиза6327
17.05.2020 07:45
Для кодирования некоторой последовательности, состоящей из букв а, б, в и г, решили использовать неравномерный двоичный код, позволяющий однозначно декодировать полученную двоичную...
Софийка646436
17.05.2020 07:45
Определить мощность алфавита, если сообщение, содержащее 60 символов, занимает 15 байт...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,i,n,max:longint;
begin
read(N);
max:=0;
for i:=1 to n do
begin
read(A);
if(a>max)then max:=a;
end;
if(max=0)then writeln('положительных чисел нет')else writeln(max);
end.