Даны n чисел. требуется найти номер последнего наименьшего из них, но не учитывать первые aчисел. формат входных данныхв первой строке вводятся два целых числа n и a(1≤n≤1000,0≤a
259
324
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1648 от 31.03.2018 внимание! если программа не работает, обновите версию! begin readseqinteger(readlninteger).where(t-> t.iseven).max.println end. пример 6 20 31 -18 0 14 7 20
program zadacha; var a, b: integer; begin write('введите 2 числа: '); readln(a, b); writeln('частное квадратов = ', (a*a)/(b*b)); readln; end.
Популярно: Информатика
-
TJ3213.03.2023 21:25
-
Volkov182211.02.2023 20:56
-
вова99304.02.2021 23:39
-
дашулькот29.06.2022 02:57
-
польска03.11.2021 05:40
-
danyarasporkin19.04.2022 02:38
-
nastia0410201512.04.2020 02:24
-
алина385127.04.2020 20:29
-
vasilina77713.07.2020 14:08
-
MrLux12318.04.2022 09:55