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

Question

Информатика

Тонюся

3 января, 23:37

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

+3

Ответы (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.