Дан массив x1, x2, … x15. Все отрицательные элементы массива заменить на 1, а положительные элементы массива заменить на 5. Вывести на печать полученный массив.

Дан массив x1, x2, … x15. Все отрицательные элементы массива заменить на 1, а положительные элементы массива заменить на 5. Вывести на печать полученный массив.
Гость
Ответ(ы) на вопрос:
Гость
var x:array [1..15] of integer; i:integer; begin writeln('Введите массив'); for i:=1 to 15 do begin read(x[i]); if x[i]<0 then x[i]:=1 else x[i]:=5; end; for i:=1 to 15 do write(x[i],' '); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы