1.Составить программу ввода элементов массива A[1..12]случайными целыми числами в...

Question

1.Составить программу ввода элементов массива A[1..12]случайными целыми числами в диапазоне от -10 до 10 и находит количество элементов с отрицательными значениями.
2.Составить программу ввода элементов массива A[1..8]случайными целыми числами в диапазоне от 1 до 22 и заменяет все отрицательные элементы на -9.

Answer 1

Program primar;
var a:array[1..8] of integer;i:integer;
begin
for i:=1 to 8 do a[i]:=random (23)+22;
for i:=1 to 8 do write (a[i]:4);
writeln;
for i:=1 to 8 do if a[i]<0 then a[i]:=-1;<br>for i:=1 to 8 do write (a[i]:4);
end.
Не знаю точно,попробуй.

Comments

вместо -1,поставь -9

---

это было 2)

---

Пока не знаю,сейчас поищу.

---

Неа,не знаю..

---

Не за что,удачи*)