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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2015, 16:41   #1
Nyash
Пользователь
 
Регистрация: 28.01.2015
Сообщений: 11
По умолчанию Двумерные массивы

Дана матрица nxm состоящая из натуральных чисел. Найти все самые нижние максимальные элементы по столбцам и вывести их местоположение на экран. Вычислить среднее арифметическое элементов нижней строки.

помогите пожалуйста со второй частью задания пожалуйста

Код:
 const N = 4; M = 4;
var
    arr: array[1..N,1..M] of byte;
    i,j,max: byte;    
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to M do begin
            arr[i,j] := random(10);
            write(' |',arr[i,j]:3,'| ');
        end;
        writeln;
    end;
    for i:=1 to M do 
        write(' ----- ');
    writeln;
    for j:=1 to M do begin
        max := arr[1,j];
        for i:=2 to N do
            if arr[i,j] > max then
                max := arr[i,j];
        write('  ',max:3,'  ');
    end;
    writeln;
end.
Nyash вне форума Ответить с цитированием
Старый 24.05.2015, 06:24   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Дописать после циклов перед end. с точкой
Код:
      for j:=1 to M do begin
        max := arr[1,j];
        i1:=1;
        for i:=2 to N do
            if arr[i,j] >= max then
            begin
                max := arr[i,j];
                i1:=i;
            end;
        write('  ',i1:3,'  ');
    end;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 21:48
Двумерные массивы(матрица) 2)Строковые массивы(строки): 3)Структуры nuriyat Помощь студентам 1 21.01.2012 16:16
Двумерные массивы(массивы указателей на массивы) krytishka99 Помощь студентам 1 29.12.2011 19:51
Двумерные массивы Flaky Паскаль, Turbo Pascal, PascalABC.NET 6 29.09.2011 20:02
двумерные массивы Nekras Помощь студентам 1 13.02.2011 18:26