Ввести с клавиатуры 10 чисел — положительных и отрицательных

Задание:

Ввести с клавиатуры 10 чисел — положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел.

Решение:

var a: array [1… 10] of integer; i: integer; begin for i: =1 to 10 do begin readln (a[i]); if a[i]<0 then a[i]: =abs (a[i]); writeln (a[i]); end; end.

Знаете другой ответ?

Отправить свой ответ