Используйте сортировку с двумя параметрами и определите сколько учащихся 7 класса школы с номером 50 принимало участие в олимпиаде.
234
281
Ответы на вопрос:
Const n=10; var i, j: byte; n1, n2: array [1..n] of integer; begin j : = 1; for i : = 1 to n do begin n1[i] : = random(100); writeln('n1[', i, '] => ', n1[i]); end; writeln(''); for i : = 1 to n do begin if (n1[i] mod 2 = 0) then begin n2[j] : = n1[i]; inc(j); n1[i] : = n1[i] * 2; end; end; for i : = 1 to n do writeln('n1[', i, '] => ', n1[i]); for i : = 1 to j do writeln('n2[', i, '] => ', n2[i]); end. если я правильно понял, то вот так =)
Популярно: Информатика
-
НaстяРайская06.12.2021 12:44
-
shurik2302198320.01.2022 12:21
-
саня132109.09.2021 22:25
-
nnxxxmm5p03cok01.04.2020 20:52
-
MrBonnie21.06.2022 04:27
-
liquidchannel24.06.2020 08:13
-
фваывнгар09.07.2022 09:31
-
ЛадаАндреева03.04.2020 23:45
-
danilgrekov2007.12.2020 08:10
-
ZSkeletZ20.12.2020 17:47