Дан массив x1, x2, … x15. Все отрицательные элементы массива заменить ** 1, а...

Question

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

Answer 1

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<br>x[i]:=1
else
x[i]:=5;
end;
for i:=1 to 15 do
write(x[i],' ');
end.

---

Comments

Если бы схема была, то это просто шедевр ) Но и за это спасибо )

---

Что за схема?

---

Блок?

---

Да, где начало, ввод,массив и т.д.

---

Добавила в ответ

---

Где тут поставить ещё можно поставить плюсы ?))) Большое спасибо, а про рабочих можешь, если не затруднит ?

---

Можно сделать "лучший ответ" через несколько дней. Сейчас посмотрю

---

Учту )