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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2017, 12:36   #1
ichigoe
Новичок
Джуниор
 
Регистрация: 15.06.2017
Сообщений: 1
По умолчанию Двумерные массивы внутри Процедуры

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

Все это одна задача. Настолько наркоманская, что я не понял как это сделать.

Код:
var A:array [1..6,1..4] of integer; 
    i,j:integer;
    x,y,z:A;
    p,k:real;
    procedure WTF (e:A; var k,p:real);
    begin
    p:=0;
    k:=0;
         for i:=1 to 6 do begin
                          for j:=1 to 4 do begin
                                           write(a[i,j]:3);
                                           if ((a[i,j]>=-10) and (a[i,j]<=9)) the begin
                                                                                  p:=p*A[i,j];
                                                                                  k:=k+1;
                                                                                  end;
                                           end;
                          writeln
                          end;
   writeln ('Произведение заданных чисел',p);
   writeln ('Количестве элементов в промежутке от -10 до 9',k);
Пожалуйста, оформляйте Ваш код согласно правилам.

Вот. Дошел до этого.
Составить программу, которая определяет и заполняет три различных массива случайными числами, вызывает данную подпрограмму для этих массивов и находит максимальное число таких элементов. Подпрограмма кроме выше сказанного должна выводить на экран линейный массив, найденные элементы, их сумму и количество

Не понимаю что хотят дальше

Последний раз редактировалось Вадим Мошев; 16.06.2017 в 22:03.
ichigoe вне форума Ответить с цитированием
Старый 15.06.2017, 13:11   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
const n=6, m=4;
type TMatrix = array[1..n,1..m] if integer;

function FindMultiOfArrayElements(A : TMatrix) : real;
var rez : real;
  i, j : 
begin
   rez := 1;
   for i:=1 to n do
     for j:=1 to m do
       if (A[i,j]>=-10) and (A[i,j]<=9) then rez := rez * A[i,j];
   FindMultiOfArrayElements := rez
end;
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерные массивы. Процедуры и функции bodya00728 Помощь студентам 1 17.11.2011 18:54
Двумерные массивы. Процедуры и функции as1212 Помощь студентам 9 12.11.2011 20:38
Двумерные массивы и процедуры F(r)an!k Фриланс 12 30.03.2010 17:46
ожидание внутри процедуры Juffin Общие вопросы Delphi 5 01.06.2009 13:52
Процедуры и функции, двумерные массивы. (QBasic) poad_hok Помощь студентам 2 27.05.2009 18:59