помогите!очень срочно нужно!

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

начало
создание массива Tabl
z:=a[1]
i:=2,n
Max(z, a[i],z)
вывод Max
конец

1

Ответы и объяснения

2013-11-29T18:41:35+00:00
Например так:

program test;
uses crt;
var
  arr:array[1..20] of integer;
  max,i: integer;

function smax(n1,n2:integer):integer;
begin
  if n1>n2 then smax:=n1 else smax:=n2;
end;
begin
  clrscr;
  randomize;
  for i:=1 to 20 do
    begin
      arr[i]:=random(90)+10;
      write(arr[i],' ');
    end;
  max:=arr[1];
  for i:=1 to 20 do
    max:=smax(max,arr[i]);
  writeln;
  writeln(max);
end.