Question

По информатике с ! введите с клавиатуры 10 целочисленных элементов массива x. выведите на экран значения корней и квадратов каждого из элементов массива. получите для массива среднее арифметическое. найти сумму элементов массива, имеющих нечетные номера.

Answer 1

Var
X:array[1..10] of integer;
i,sred,summ:integer;
begin
for i:=1 to 10 do begin
writeln('X[',i,']'):
readln(X[i]);
end;
for i:= 1 to 10 do writeln(sqr(A[i]));
for i:=1 to 10 do sred:=sred+A[i];
writeln('Sred.Arf.=',sred/10);
for i:=1 to 10 do if (i mod 2 <>0) then summ:=summ+A[i];
end.