Помогите решить задачи1.Одномерный массив заполнен любыми числами. Заменить...

Question

Помогите решить задачи

1.Одномерный массив заполнен любыми числами. Заменить отрицательные элементы их модулями.
2.Одномерный массив заполнен целыми числами. Возвести в квадрат элементы, стоящие на четных местах.

Comments

короче, вот моё решение, но говорю, там только вместо real integer

---

program p_03;var a:array[1..50] of real;i,n:integer;beginwrite(' Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà ');readln(n);for i:=1 to n dobeginwrite ('A[',i,'] = ');readln(a[i]);end;for i:=1 to n doif a[i] < 0 thena[i]:= abs(a[i]);for i:= 1 to n dowrite (a[i],' ' );writeln;end.

---

Спасибо...Но программа идёт?

---

Да. всё идёт) Блин, Лада,возможно, просечёт,что у всех одни ошибки, хотя пофиг

---

Идёт.Я проверила)А вот 2ая

---

Спасибо громадное

---

На вторую нужна формула квадрата, скорее всего. у меня её нет, может она на уроке даст. она же вроде как сказала на выбор 2 или 3. ну лично нашему классу так.

---

Ну да...Там было 2 и(или)3

---

Да. ну вот 2 считай решили. Может она объяснит как изменить,чтобы принимал real на уроке. у вас каким информатика?

---

6ым

Answer 1

Я второе написала, но у меня for не принимает real, и можно только целые числа, а не любые. Могу подкинуть такое решение. 

Comments

Ну ...Мне нужно решение