Ответы на вопрос:
// pascalabc.net 3.2, сборка 1319 от 08.10.2016 begin var n: =20; var a: =arrrandom(n,-12,12); writeln('массив случайных чисел'); a.println; println('количество элементов, равных 10: ',a.where(x-> x=10).count); write('нулевые элементы '); var k: =0; for var i: =0 to n-1 do if a[i]=0 then begin inc(k); print(i+1) end; if k=0 then writeln('отсутствуют') else writeln; writeln('меняем местами элементы 3 и 6'); swap(a[2],a[5]); a.println end. результат работы программы массив случайных чисел -12 -4 5 10 5 4 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2 количество элементов, равных 10: 2 нулевые элементы 9 17 меняем местами элементы 3 и 6 -12 -4 4 10 5 5 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2
Популярно: Информатика
-
nikitabyshek13.08.2022 20:22
-
сашуня2917.06.2023 11:54
-
yestarday2324.10.2022 00:02
-
notix5503.06.2020 20:21
-
yroyakap0doki15.03.2021 15:11
-
поплрадДРм10.10.2021 16:54
-
мария2222811.06.2021 12:59
-
zhivotkhanova9524.10.2021 03:52
-
beatsdol22.12.2022 12:55
-
StayStr0g22.02.2021 04:38