roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 19:17, 03 Gru 2007 Temat postu: Lista 5 - zad 6 mgr H |
|
|
| Kod: | program Project6;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
var tab:array[1..n] of integer;
i,j,x,max,min : integer;
begin
max:=0;
min:=0;
for i:=1 to n do begin
writeln('Podaj liczbe z przedzialu <-100,100>');
readln(x);
tab[i]:=x;
if (x>100) or (x<-100) then begin
writeln('Zly przedzial podaj jeszcze raz');
readln(x);
tab[i]:=x;
end;
if i=1 then begin
max:=tab[i];
min:=tab[i];
end;
end;
////sprawdzenie kazdego elementu, czy element tablicy jest mniejszy czy wiekszy od 1 umieszczonego w tablicy
for j:=1 to n do begin
if tab[j] > max then
max:=tab[j];
if tab[j]< min then
min := tab[j];
end;
writeln ('Maxymalny element tablicy to : ',max);
writeln ('Minimalny element tablicy to : ',min);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end. |
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
