tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите на паскале. : найти
Напишите на паскале. : найти максимальный из элементов массива a[1 .. n], кратных пяти.
iamash2450
2 19.08.2019 20:50
0
Ответы
usereldoc9857
24.04.2020 03:42
Const
n = 5;
var
arr: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
max := 1;
for i := 1 to n do
if (max < arr[i]) and (arr[i] mod 5 = 0) then
max := arr[i];
if max = 1 then
writeln('No')
else
writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ivanovgeorg123георг
25.05.2019 02:10
Как сделать буклет в ворде, чтобы текст перед ним не изменил вида, а после шел буклет в виде сложенных пополам листов...
Venjin
25.05.2019 02:10
Требуется подсчитать, на сколько минут раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут. формат входных данных: вводится одно натуральное число k,...
alenagerasimov1
25.05.2019 02:10
Какие из утверждений о программном обеспечении компьютера и его технической эксплуатации верны? 1)драйвер - это программа, обеспечивающая работу устройств, входящих в состав...
mboyko2005
25.05.2019 02:10
Вофисе 8 компьютеров. у программиста есть 3 тестовых копии программы. сколькими разными программист может установить копии программы, при условии, что на один компьютер имеет...
inkarmukash
26.07.2019 18:30
Нарисовать любой рисунок из точек, количество которых не меньше 15 и не больше 20 на координатной плоскости. , ! 80 !...
плюскваммиперфекти
26.07.2019 18:30
Дан массив a(n). найти сумму элементов на чётных местах и произведение элементов, кратных 3....
Illya227
26.07.2019 18:30
Как при смещения на вектор в кумире, исполнитель чертежник, нарисовать квадрат 4х4?...
fkdsf234
23.12.2020 07:16
Что такое стиль текста?как изменяется изображение текста после применения стиля...
Аліна02012003
23.12.2020 07:16
верно ли утверждение ,что adobe Photoshop используется только для редактирования готовых изображений и фотографий?...
gennadih90
11.06.2019 13:00
Найти наибольший общий делитель 273...
Популярные вопросы
Частное от деления числа z на разность чисел x и...
1
Характеристика Одиссея с примерами...
1
Упражнение 7. Дослушайте, что произошло дальше меж- ду Бимом и жалобщицей....
1
Дано:А….С1-правильная призма, Рabcd=16, PAA1,D1D=22 Найти: Sполн...
3
Сравните художественные произведения об осени поэта Д. Самойлова и художника...
1
Чому домашні тварини важливі для людей...
1
Решите , логорифмическое уравнение умоляю. будьте добры, с пояснениями....
1
Erganzen Sie Possessivргопотеn im Dativ, Необходимо вставить подходящее...
2
26. (3.218 + 15:25) (13.44) 2...
2
4 Find these sentences in the text. Then complete the sentences with the...
1
n = 5;
var
arr: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
max := 1;
for i := 1 to n do
if (max < arr[i]) and (arr[i] mod 5 = 0) then
max := arr[i];
if max = 1 then
writeln('No')
else
writeln(max);
end.