Помогите возвести каждый второй элемент массива в квадрат(паскаль)

Помогите возвести каждый 2-ой элемент массива в квадрат(паскаль)

Задать свой вопрос
Софья Цысырева
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.
1 ответ

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


   begin


       if i mod 2 = 0 then


       a[i]:= sqr(a[i]);


   writeln(a[i]);

   end;

end.

Полинка
Здесь только четные возводятся
Петропуло Олег
это и есть каждый 2-ой элемент, Ннет?
Хохлева Людмила
Так я ввожу нечетные и они не возводятся
Даниил Кунинец
там если номер элемента четный (т. е. каждый второй элемент массива), то этот элемент заменяется его квадратом
Александра Осенчук
Так если я пишу 2 числом нечетное то оно не возводится
Светлана Ранговская
ну да
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт