Задан одномерный массив из n чисел . состааить новый массив , состоящий из тех же чисел ,но идущий в обратном порядке
194
196
Ответы на вопрос:
// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',99); a.println; var b: =a.reverse.toarray; b.println end. пример n= 13 7 -43 4 21 -25 62 -33 72 88 -26 -38 42 -64 -64 42 -38 -26 88 72 -33 62 -25 21 4 -43 7
Var n,x: integer; s: string; begin s: ='нет'; readln(n); while n> 0 do begin x: =n mod 10; if x=7 then s: ='да'; n: =n div 10; end; writeln(s); end.
Популярно: Информатика
-
danilrykov20027.09.2020 19:20
-
Мандаринка50013.06.2022 10:33
-
кирилл206210.04.2021 12:31
-
Котик030326.04.2023 20:30
-
Lerochka020423.05.2023 12:55
-
Rororor1111110.09.2021 03:07
-
ksenia72129.11.2022 15:54
-
diana03veremi21.03.2023 00:24
-
olegovnao2720.10.2020 18:47
-
50978886621.02.2020 00:10