Ответы на вопрос:
Program karina; uses crt; var a: array [1..1000] of integer; n,i,k: integer; begin writeln('введите ращмер массива'); readln(n); for i: =1 to n do readln(a[i]); k: =a[6]; k: =k*k; //(или k: =sqr(k)) writeln(k); end.
Популярно: Информатика
-
sleep1324.08.2020 16:46
-
kirushgold11.03.2020 06:55
-
Карина220310.01.2020 13:41
-
Маша2004112403.10.2021 13:14
-
gogogold220801.08.2022 12:38
-
ДаняВетренный24.01.2023 02:05
-
ЮлияБогинская12.05.2022 04:27
-
Бозя114.04.2021 23:25
-
zhenyakulakova29.11.2020 07:45
-
KVERCXI06.07.2021 03:11