Turbo Pascal
Turbo PascalВвести с клавиатуры 10 чисел положительные и отрицательные. Заменить все отрицательные числа их модулями и напечатать все полученные 10 чисел. (Тут сидел вспоминал вспоминал как ограничить ввод именно только 10 чисел и условие при котором будут заменяться, потом вывод их на экран ВСЕ так и не вспомнил). Помогите пожалуйста.
Гость
Ответ(ы) на вопрос:
Гостьvar a:array [1..10] of integer; i:integer; begin for i:=1 to 10 do readln(abs(a[ i ])); for i:=1 to 10 do writeln(a[ i ]); end; как то так)
ГостьНе вспомнил или не знаешь?:)
Не нашли ответ?
Похожие вопросы