Zadání:
Sestavte proceduru, která vyhledá nejmenší a největší prvek v poli.
Řešení:
Jelikož parametrem předávaným do procedury je pole, musíme nadefinovat vlastní typ (pole), aby obě proměnné p a p1
byly stejného typu.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type pole=array[1..100] of integer;
procedure najdi(p:pole; var max,min:integer);
var i:byte;
begin
max:=p[1];
min:=p[1];
for i:=2 to 100 do
begin
if p[i]>max then max:=p[i];
if p[i]<min then min:=p[i];
end;
end;
var p1:pole;
i,m1,m2:integer;
begin
randomize;
for i:=1 to 100 do p1[i]:=random(100);
najdi(p1,m1,m2);
writeln('Maximum: ',m1);
writeln('Minimum: ',m2);
readln;
end.
program ke stažení