Мне нужна помощь: В паскаль Рассмотрим массив T [1..n] целых чисел, где n

Question

Мне нужна помощь: В паскаль Рассмотрим массив T [1..n] целых чисел, где n <= 20. Напишите программу, используя процедуру, которая будет отображать положительные элементы этого массива. Спасибо заранее.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

procedure ВыводПоложительных(a: array of integer);

begin

 a.Where(t -> t > 0).Println

end;

begin

 var T := ArrRandom(ReadInteger('n='), -50, 50);

 T.Println;

 ВыводПоложительных(T)

end.

---

Comments

Здесь полно людей, которые пишут так, как Вам нужно. А у меня все знакомы если пишут, то так же как я. По=хорошему, если выбросить абсолютно ненужное тут требование делать процедуру, программа вообще пишется В ОДНУ СТРОЧКУ. И кем надо быть, чтобы вместо этого писать двадцать?

---

так в школе нам преподают

---

Я понимаю.

---

Вот полный код программы, делающей все то, что написано: спрашивающей количество элементов, создающей массив нужного размера (хоть миллион!), выводящей его, а потом выводящей только его положительные элементы.

---

begin ArrRandom(ReadInteger('n='), -50, 50).Println.Where(t -> t > 0).Println end.

---

Хорошо,я подожду до завтра может найдется человек который мне поможет

---

Одна строка. Просто тут она свернулась из-за длины.

---

Конечно. Может и найдется.

---

Спасибо большое что постарался мне помочь.

---

привет