Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2017, 06:56   #1
karetuu
Новичок
Джуниор
 
Регистрация: 17.05.2017
Сообщений: 2
По умолчанию Паскаль АБС Процедуры и Функции

Написать подпрограмму нахождения элементов двумерного массива целых чисел размера 6х4 которые находятся в промежутке [-10,9], вычислить количество и произведение этих элементов. В качестве входного параметра подпрограммы должен быть двумерный массив, а выходным параметром - количество и произведение заданных элементов. Составить программу, которая определяет и заполняет три различных массива случайными числами, вызывает данную подпрограмму для этих массивов и находит максимальное число таких элементов. Подпрограмма, кроме вышесказанного, должна выводить на экран данный массив, найденные элементы, их сумму и количество

Помогите пожалуйста! Ну не понимаю я
karetuu вне форума Ответить с цитированием
Старый 17.05.2017, 08:02   #2
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Цитата:
Сообщение от karetuu Посмотреть сообщение
Написать подпрограмму нахождения элементов двумерного массива целых чисел размера 6х4 которые находятся в промежутке [-10,9], вычислить количество и произведение этих элементов.
Код:
var 
  a:=MatrRandomInteger(6,4,-50,50);
begin
  a.Print(5);
  Println('Числа в промежутке [-10,9] :');
  var b:=a.Rows.SelectMany(x->x).Where(x->(-10<=x)and(x<=9));
  b.Println;
  Println('Их количество =',b.Count);
  Println('Их произведение =',b.Aggregate(1,(p,x)->p*x));
end.
И что тут сложного?! Остальное сами!
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
процедуры и функции паскаль АсяЯ Паскаль, Turbo Pascal, PascalABC.NET 2 20.11.2016 09:48
Паскаль Функции и процедуры Andrij Zvarych Паскаль, Turbo Pascal, PascalABC.NET 2 30.11.2014 23:19
паскаль. процедуры и функции Антон Лысенко Помощь студентам 4 23.02.2011 23:17
Процедуры и функции. Паскаль andronova Помощь студентам 2 25.05.2009 18:44