Составить программу, которая меняет элементы массива ** противоположные по знаку, массив...

Question

Составить программу, которая меняет элементы массива на противоположные по знаку, массив заполняется с клавиатуры.
Решить задачу на паскале.

Comments

нет

Answer 1

PascalABC

var a:array of real;   
      i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.

Comments

спс

---

она не работает

---

В PascalABC.Net проверил, работает.

---

Возможно ты вместе с надписью "PascalABC" программу пытался запустить?

---

нет брат

---

значит ты пытался её запустить в другой среде, отличной от ABC ( Turbo, Free и т.д.)

---

нет в ABC он пишет что нужны [ ] а что в них писать?