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.