Паскаль: составить массив из 5 элементов с клавиатуры и вывести в строку. Если элемент положительный, то заменить его на противоположный.

Question

Информатика

Гема

5 октября, 13:25

Паскаль: составить массив из 5 элементов с клавиатуры и вывести в строку. Если элемент положительный, то заменить его на противоположный.

+5

Ответы (1)

Знаете ответ на вопрос?

Алюня · Answer 1

var

a: array[1 ... 5] of integer;

i: integer;

begin

for i : = 1 to 5 do begin

readln (a[i]) ;

if (a[i] < 0) then a[i] : = a[i] * (-1) ;

end;

for i : = 1 to 5 do write (a[i], ' ') ;

end.