Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Carroty13
25.03.2021 20:32 •
Информатика
Составьте программу выводящую на экран большее из 5 чисел программа из кумира
Показать ответ
Ответ:
дура55555
14.07.2020 19:16
Сделал через массив
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=4;
var a:array [0..n] of integer;max,i:Integer;
begin
for i:=0 to n do
readln(a[i]);
min:=a[0];
for i:=0 to n do
if a[i]>max then
max:=a[i];
Writeln(max);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
GreenExtreme5995
11.10.2021 21:38
Даны значения 2-х переменных a, и b. найдите наибольшее значение. (нужно составить блок схему)...
sergooopoop
26.09.2022 22:13
Создать массив состоящий из 25 элементов. заполнить его случайными числами из диапазона от -13 до 37.вывести его элементы стоящие на четных номерах...
Шатунов1
08.10.2020 00:28
При каких признаков можно дать имя объекту...
CloudSmile
08.10.2020 00:28
Есть кучка из 769 орехов. за одну операцию можно любую из уже имеющихся кучек разделить на две. если при этом получатся две неравные кучки, то взимается штраф 1 рубль. какова наименьшая...
вопросник45
08.10.2020 00:28
Даны значения 3 переменных abc, найти большее значение ....
MorozilkAAA
25.06.2022 13:44
Вкинотеатре 16 рядов по 32 места .вам продали билет на 14 ряд 20 место. сколько информации вы получили?...
mazasa128
14.02.2020 01:25
Задача 1. Їдальня закуповує щодня масло та кг по 110 грн. за кілограм, сметану та кг по35 грн. за кілограм, вершки m3 кг по 70 грн. за кілограм. Визначте суми,потрібні для купівлі...
ololoololoev1
24.08.2020 16:07
Какой оператор в записи разветвляющегося алгоритма на языке Pyhton соответствует значению Если ?...
Piragovicch
30.07.2020 21:47
Люди не понимаю как это на понтоне 1. х= 5(а 2-2 b). 4.z=x2+ [x2−13x+51] -112. y= (a-b)(c-d)2 2с − b. []—модуль 3. x=—— с+2a...
jaredletoo
30.06.2021 05:44
с информатикой. Исполнитель Чертёжник перемещается на координатной плоскости, оставляя след в виде линии. Чертёжник может выполнять команду Сместиться на (a, b) (где a, b — целые...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=4;
var a:array [0..n] of integer;max,i:Integer;
begin
for i:=0 to n do
readln(a[i]);
min:=a[0];
for i:=0 to n do
if a[i]>max then
max:=a[i];
Writeln(max);
readln;
end.