В заданном массиве из N элементов на экран вывести квадрат шестого элемента Помогите пожалуйста
Answers & Comments
ИССА2003
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.
Answers & Comments
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.