Zadanie 1
program 1;
uses crt;
type tablica= array[1..5] of real;
var t: ^tablica;
i,min :integer;
begin
clrscr;
new(t);
writeln(’Podaj 5 liczb: ’);
for i:=1 to 5 do
begin
writeln(’Podaj liczbe nr: ’,i);
readln(t^[i]);
end;
min:=1 to 5 do
if (t^[i]) > min then min:=(t^[i]);
writeln(’Najmniejsza z tych liczb to: ’, min,’);
end;
dispose(t);
readln;
end.