В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Alina22511
Alina22511
23.05.2023 08:28 •  Информатика

Дан массив из 10 целых чисел в диапазоне [-10000,10000]. определите максимальный элемент, кратный 5. если таких элементов нет, выведите "-1". числа вводятся с клавиатуры. программу выполнить в паскаль.авс

Показать ответ
Ответ:
Марина0506
Марина0506
08.10.2020 11:13
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqInteger(10).Where(t->(t mod 5=0)).ToArray;
  if a.Count=0 then Writeln(-1) else Writeln(a.Max)
end.
0,0(0 оценок)
Ответ:
Steam1112
Steam1112
08.10.2020 11:13
Program c;var a:array [1..10] of integer; i,k,n:integer;begin k:=-1; n:=-10001; for i:=1 to 10 do  begin   readln(a[i]);    if(a[i] mod 5 = 0) and (a[i] > n) then     n:= a[i];   end;   if n = -10001 then    writeln(k)    else     writeln(n);end.
Дан массив из 10 целых чисел в диапазоне [-10000,10000]. определите максимальный элемент, кратный 5.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота