Помогите с информатикой: Задан массив из N вещественных чисел,которые вводятся с...

Question

Помогите с информатикой:
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.

Answer 1

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;<br>else a[i] := i;
end;
writeln(a);
end.