Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 03.03.2017, 19:20   #1
Rimean
 
Регистрация: 23.11.2016
Адрес: Москва
Сообщений: 8
Репутация: 10
По умолчанию Подпрограммы

составить программу поиска максимальных элементов во всех строках матрицы. Нахождение максимального элемента вектора оформить в виде подпрограммы.
Rimean вне форума   Ответить с цитированием
Старый 03.03.2017, 21:04   #2
Aleksandr H.
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 1,813
Репутация: 710

skype: aleksandr.gryb
По умолчанию

Код:

uses crt;
type
    TMatrix = array [1..50, 1..50] of integer;
    TVector = array [1..50] of integer;
 
var Mas: TMatrix;
    Vec : TVector;
    i, j, m, n : integer;
 
function f(Stk: TVector; n: integer):integer;
var i, max: integer;
begin
 max := Stk[1];
 for i := 2 to n do
  if max < Stk[i] then max := Stk[i];
 f := max;
end;
 
BEGIN
ClrScr;
Randomize;
Write('m and n =  ');
Readln(m, n);
Writeln('Array: ');
for i := 1 to m do
 begin
      for j := 1 to n do
       begin
       Mas[i, j] := random(100);
       Write(Mas[i,j], ' ');
       end;
  Writeln;
 end;
Writeln('Result');
for i := 1 to m do
 begin
 for j := 1 to n do
   Vec[j] := Mas[i,j];
 Writeln(f(Vec, n));
 end;
Readln;
END.

__________________
Wix-Filters.A Filter For Every Application.
"спасибо" принимаются на webmoney: R676842461689, Z243088649038, U164738001305; AdvancedCash: U853633661253, E181662999107, R587360121187; ПриватБанк.UA
Aleksandr H. на форуме   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подпрограммы Camelot_2012 Паскаль 1 09.04.2012 14:36
Подпрограммы Егор93 Помощь студентам 1 13.02.2011 19:52
подпрограммы!? nolx Помощь студентам 0 31.05.2010 18:53
Подпрограммы оО) SkyL1ne Помощь студентам 5 24.05.2010 21:21
Подпрограммы-процедуры, подпрограммы-функции в Pascal rishikesh Помощь студентам 19 18.05.2010 23:05




16:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru