Что определяет макет слайда в фотоальбоме? как выбрать макет для слайдов фотоальбома?
151
426
Ответы на вопрос:
Const n = 13; var a,i,c,k: integer; m: array[1..n] of integer; begin k: =0; write('a = '); readln(a); writeln('введите целые числа'); for i: = 1 to n do read(m[i]); for i: = 2 to n do if m[i]-a = m[1] then k: =k+1; writeln('1: k = ',k); k: =0; for i: = 2 to n-1 do if (m[i-1]< m[i])and(m[i]> m[i+1]) then k: =k+1; writeln('2: k = ',k); write('3: '); for i: = 1 to n do if (m[i] mod 3 = 0)and(m[i] mod 5 < > 0) then write(m[i],' ') end.
Популярно: Информатика
-
Anway201722.06.2021 05:29
-
alievafatima103.04.2023 03:23
-
minoraNika7916.02.2020 05:58
-
svetlans221.05.2022 05:46
-
molik11110522.05.2022 02:11
-
51Qwerty1525.10.2022 22:48
-
Engishmaster18.06.2022 12:48
-
Fukci05.02.2021 14:51
-
Vlaad55512.02.2020 23:23
-
кукушка13718.02.2022 02:12