Алгоритмические языки и программирование. Игошина Л.В. - 67 стр.

Type Tmas=array[1..1000] of integer;
Var M1, M2: Tmas;
      K1, K2, Max1, Max2 : integer;
      { Процедура ввода длины массива и самого массива }
Procedure Vvod(Var K:integer; Var M:Tmas);
      Var i:integer;
             Begin
                    Write(' Введите длину массива');
                    Readln(K);
             Writeln(' Введите элементы массива целых чисел, через пробел');
             For i:=1 to K do
             Read(M[i]); readln;
             End; { конец процедуры ввода}
      { Процедура поиска максимального элемента в массиве}
Procedure Poisk_max(K:integer; M:Tmas; Var Max:integer);
      Var i:integer;
             Begin
             Max:=M[1]; { За максимум принимаем первый элемент}
             For i:=2 to K do
             If M[i]>Max then Max:=M[i]; {Запоминаем новый максимум}
             End;
      { Начало основной программы}
      Begin
             Clrscr;
             Writeln(' Ввод первого массива');
             Vvod(K1, M1);
             Writeln(' Ввод второго массива');
             Vvod(K2,M2);
             Poisk_max(K1, M1, Max1);
             Poisk_max(K2, M2, Max2);
             If Max1>Max2 then writeln(' Max1 больше и оно = ',Max1)
                             Else writeln(' Max2 больше и оно = ',Max2);
             Readkey; { Останов для просмотра результатов}
      End.


                              Лабораторная работа №8

     Цель работы:

     1. Получить навыки разработки программ с использованием процедур

                             Типовое задание