x-kom hosting

[pascal]Program,szukanie najmniejszej liczby

M@rtyna
utworzono
utworzono

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
komentarz
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.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.