Ответы на вопрос:
Var a: array [1..5] of integer; begin for i: =1 to 5 do begin read(a[i]); if (a[i]> 0) and (a[i] mod 4=0) then a[i]: =sqr(a[i]); end; for i: =1 to 5 do write(a[i],' ') end.
Популярно: Информатика
-
turuo11.03.2021 18:39
-
Zelikovakasimov10.10.2022 18:07
-
mkagermazov06.05.2020 08:40
-
розасит200609.05.2021 04:17
-
shishckinayuly14.05.2022 22:59
-
anastasiykucher10.01.2022 23:23
-
katystolbova21.07.2021 12:47
-
stoun201821.01.2022 02:36
-
karina27060708.05.2023 22:44
-
Человек123451234514.05.2021 02:23