M@rtyna utworzono 6 stycznia 2009 utworzono 6 stycznia 2009 Witam. Jestem nowa na forum,liczę na wyrozumiałość Mam do napisania program we free pascalu na informatykę. Mam nadzieję,że ktoś się mną zainteresuje ;* potrzebuję tylko kod,bez kompilacji gdyż muszę to zrobić na lekcji. Napisz program,który wczytuje do tablicy losowo n liczb ( n <= 1000)całkowitych z przedziału <0÷100> i znajdzie liczbę najmniejszą (MIN).Wyświetl te liczby i MIN.Zbiór liczb i MIN zapisze w pliku tekstowym.Możliwość wielokrotnego wykonywania programu bez konieczności jego ponownego uruchamiania.Program napisany strukturalnie. Wiem,że trochę głupie są takie prośby ale tonący... ;/
Championek komentarz 7 stycznia 2009 komentarz 7 stycznia 2009 program zad;uses crt;const N=20;vartablica:array[1..N]of integer;minimum,i:integer;beginclrscr;randomize;for i:=1 to N dobegintablica[i] := random(100);write(tablica[i]:4);end;writeln;writeln;minimum:=tablica[1];For i:=1 to N dobeginif tablica[i] < minimum thenminimum := tablica[i];end;writeln('minimum wynosi ', minimum);readln;end. // Czytaj regulamin! // Kod dajemy w code. // luq
Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!
Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.