Ocena użytkownikóww: ***** / 1
Nadesłany przez Tomasz Lubiński, 04 września 2009 01:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
Element minimalny-maksymalny - Delphi/element_min_max.dpr:
//Szukanie elementu minimalnego/maksymalnego w tablicy
//(c) 2009 by Tomasz Lubinski
//www.algorytm.org
program element_min_max;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a: Array [1..100] of Integer;
i, n, wynik: Integer;
begin
//pobierz dane od uzytkownika
writeln('Podaj liczbe elementow tablicy (maks. 100)');
readln(n);
for i:=1 to n do
begin
writeln('Podaj element a[', i, ']');
readln(a[i]);
end;
//szukaj elementu minimalnego
wynik := a[1];
for i:=2 to n do
begin
if (wynik > a[i]) then wynik := a[i]
end;
//podaj wynik
writeln('Najmniejszy element w tablicy to ', wynik);
//szukaj elementu maksymalnego
wynik := a[1];
for i:=2 to n do
begin
if (wynik < a[i]) then wynik := a[i]
end;
//podaj wynik
writeln('Najwiekszy element w tablicy to ', wynik);
//poczekaj na enter od uzytkownika
readln;
end.
