Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
marinapizdec
15.05.2020 03:54 •
Информатика
Составить программу на языке паскаль: ввести 4 числа и вывести большее из них.( )
Показать ответ
Ответ:
PodolskayaOlli
20.07.2020 08:02
Var x, y, z: integer;
var M:Array[1..4] of integer;
begin
z:= -7000;
for var i:= 1 to 4 do
beginwriteln('Введите число');
readln(M[i]);
if z< M[i] then z:= M[i];
end;
writeln(z :4 );
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
strelkina42
22.07.2021 08:42
Составьте функцию по заданным схемам...
61FoX16
20.07.2020 16:03
нужно зделать программу на С...
Боня227
01.04.2023 05:05
Информатика!Тест на время!...
Bekarys2002
01.04.2023 05:05
Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область.Входные данные: Входная строка содержит два вещественных числа...
Vika223344
08.07.2020 03:41
C++ С одномерным массивом, состоящим из n вещественных элементов, выполнить следующее: Преобразовать массив таким образом, чтобы элементы, равные нулю, располагались...
graulity
22.11.2022 14:44
Напишите формулу для Excel Налог: если Итого получается меньше 10000 рублей, то 13%, иначе 25%. Рассчитайте самостоятельно, используя функцию Если. На руки: Итого Налог....
bluecat12
10.07.2022 19:20
1) Какие из предложений являются высказываниями? * 1)Число Х больше 5. 2)Скоро наступит ноябрь. 3)4*1+2=10 4)Скоро каникулы! 5)Конъюнкция - это логическое умножение....
s2702e
17.08.2022 01:04
Как открыть файл в среде программирования Паскаль АВС?...
2002anna2
24.07.2021 01:23
составить программу Напечатать заданное слово в обратном порядке, удаляя при этом все буквы «е»....
nicitama228800
21.05.2021 20:27
Напишите программу, которая считывает строку с числом n , которое задаёт количество чисел, которые нужно считать. Далее считывает n строк с числами xi, по одному числу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var M:Array[1..4] of integer;
begin
z:= -7000;
for var i:= 1 to 4 do
beginwriteln('Введите число');
readln(M[i]);
if z< M[i] then z:= M[i];
end;
writeln(z :4 );
end.