85

Паскаль: составить массив из 5 элементов с клавиатуры и вывести в строку. Если…

13 марта 2023

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

категория: информатика

57

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.

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

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...