Дан массив 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.
Не нашли ответ?
Похожие вопросы