Помогите с информатикой:

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

Question

Информатика

Пахом

25 апреля, 21:30

Помогите с информатикой:

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

+5

Ответы (1)

Знаете ответ?

Людаша · 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;

else a[i] : = i;

end;

writeln (a) ;

end.

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