Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
aigul841107gMailcom
10.06.2022 06:49 •
Информатика
Вмассиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся на 5 буду седечно !
Показать ответ
Ответ:
Sera4erka
06.10.2020 09:57
Const
n = 5;
type
mas = array[1..n] of integer
var
max : integer;
begin
max := 0;
for i:=1 to n do
if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
romashka301
12.08.2022 04:34
Один из основателей организации по защите прав граждан Сети в 1996 году в ответ на принятие в США «Телекоммуникационного акта», опубликовал «Декларацию Независимости Кибер Расшифруй...
Макс111111м
08.12.2021 12:39
Нужно Подробное Решение этих задач1.64 –цветной рисунок содержит 512 Мбайт информации. Из какого количества точек он состоит?2.Для хранения растрового изображения размером 256х256...
Электрик2016
11.01.2021 06:18
В паскаль Задача 1 Найдите сумму и количество элементов массива, попавших в интервал [a; b]. Границы интервала вводятся с клавиатуры. Задача 2 Вывести в порядке возрастания цифры,...
BTS111111y
17.05.2021 10:21
Запишите число,которое будет напечатано в результате выполнения программы: var s,n: integer; begin s: =33; n: =1; while s 0 do begin s: = s-7; n: =n*3 end; writeln(n) end....
lutaasasa5p08d7e
25.08.2021 14:18
Придумай и запиши пары предложений имеющих противоположный смысл...
katuxa65789
28.07.2022 00:55
Введите три положительных числа, которые соответствуют размерам сторон треугольника. найти периметр p и площадь/ распишите на с++...
Krichikis
14.07.2021 18:13
Для кодирования сообщения используется таблица а б в г д 10 100 011 000 11 закодированное сообщение: 10111011000 найти все декодирования сообщения, записанного под таблицей: абгдвг...
Pro100Brotanich
19.01.2022 18:08
Дописать пропущенные слова: закодированное сообщение можно декодировать с начала, если выполняется условие фано: никакое кодовое слово не является другого кодового слова. такой код...
максимка1905
24.03.2023 15:41
Для кодирования некоторой последовательности, состоящей из букв а, б, в, г и д, решили использовать неравномерный двоичный код, позволяющий однозначно декодировать двоичную последовательность,...
Yachit68
23.08.2022 02:16
Мини проект классификация на тему мобильные телефоны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 5;
type
mas = array[1..n] of integer
var
max : integer;
begin
max := 0;
for i:=1 to n do
if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];
writeln(max);
end.