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

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

Задать свой вопрос
1 ответ

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

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

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

begin

 a.Where(t -gt; t gt; 0).Println

end;


begin

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

 T.Println;

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

end.

Darina Skuchareva
Тут много людей, которые пишут так, как Вам нужно. А у меня все знакомы если пишут, то так же как я. По=хорошему, если выбросить безусловно ненужное здесь требование делать функцию, программка вообще пишется В ОДНУ Строку. И кем надобно быть, чтоб заместо этого писать 20?
Татьяна Фрейдензон
так в школе нам преподают
Игорь Дзядель
Я разумею.
Вера Травина
Вот полный код программки, делающей все то, что написано: спрашивающей количество частей, творящей массив подходящего размера (хоть миллион!), выводящей его, а позже выводящей только его положительные элементы.
Инна Торатадзе
begin ArrRandom(ReadInteger('n='), -50, 50).Println.Where(t -> t > 0).Println end.
Колян Ропий
Хорошо,я подожду до завтра может найдется человек который мне поможет
Евгения Шингарева
Одна строчка. Просто здесь она свернулась из-за длины.
Slavjan Binek
Окончательно. Может и найдется.
Алексей Брынь
Спасибо огромное что постарался мне посодействовать.
Амина Клубова
привет
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт