Нужна только Блок-схема Найти максимальный и минимальный эле- менты Х и поменять их местами в Ү. В при- мере Хmax = 8, Хmin = 0
Конечно, алгоритм должен быть универсален.
281
431
Ответы на вопрос:
Const n=5; var mas: array[1..n] of integer; i,sum: integer; begin sum: =0; for i: =1 to n do begin readln(mas[i]); if mas[i] mod 2 = 0 then // если mas[i] делиться на 2 без остатка, sum: =sum+1; end; writeln(sum); end.
Популярно: Информатика
-
katyamalahova4717.01.2022 12:30
-
vladazimenko1515.01.2021 20:46
-
anel198520.12.2021 05:24
-
Alisaalpatik18.10.2022 16:16
-
m1a2c3s4i5m6a710.05.2022 21:28
-
SoniaSor02.04.2022 07:10
-
ruslanpavlov811.03.2022 23:45
-
Natiman02.08.2021 06:34
-
sashagrachev018.04.2020 18:14
-
мопс7323.07.2020 13:34