Ответы на вопрос:
Var ar: array[1..12] of integer; i: integer; begin; randomize; writeln('main array: '); for i: =1 to 12 do begin; ar[i]: =random(1,11); writeln(ar[i]); end; writeln('changed array: '); for i: =1 to 12 do begin; if ar[i] mod 2=0 then ar[i]: =sqr(ar[i]); writeln(ar[i]); end; end.
Популярно: Информатика
-
bisenkoda09.11.2021 23:04
-
Verabogomaz13.11.2022 02:02
-
dimatitov1428dimasik26.11.2020 23:40
-
vladdendi19.05.2021 20:12
-
0667543784u76ju20.01.2023 08:27
-
klarkwin20.11.2020 10:08
-
salihvalishev25.04.2021 06:29
-
tyupina201815.11.2022 15:57
-
alenavol200511.11.2021 10:32
-
anna187704.11.2022 14:39