Forum www.ispwsznysa.fora.pl Strona Główna www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Lista 5 - zad 6 mgr H

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
roy
Administrator



Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów

Skąd: Głuchołazy

PostWysł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.
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.ispwsznysa.fora.pl Strona Główna -> Programowania I Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin