Помогите возвести каждый второй элемент массива в квадрат(паскаль)
begin var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0); for var i := 0 to a.High do if i.isOdd then a[i] *= a[i]; a.Println;//1 4 3 16 5 36 7 64 9 0end.
const n = 15;
var
a: array[1..n] of real;
i, k: integer;
begin
for i:=1 to n do readln(a[i]);
for i:= 1 to n do
if i mod 2 = 0 then
a[i]:= sqr(a[i]);
writeln(a[i]);
end;
end.
Тут только четные возводятся
это и есть каждый второй элемент, Ннет?
Так я ввожу нечетные и они не возводятся
там если номер элемента четный (т. е. каждый второй элемент массива), то этот элемент заменяется его квадратом
Так если я пишу 2 числом нечетное то оно не возводится
ну да