Ĺadny brzuch
Bardzo pilnie potrzebję kodu na informatykę, mam 2 zadania. Mam "ostrego" nauczyciela a ja na pascalu sie nie znam :( i więcej nie bede mieć z nim nic wspólnego jednak teraz musze zdac półrocze na 2.
1: wczytać z klawiatury n liczb i wydrukować na ekranie najmniejszą spośród nich (MIN).
2: wylosować n liczb z określonego przez uzytkownika akresu, wyświetlić ilość wystąpień elementu MAX2 (nie maksymalny tylko przedostatni element w ciągu) oraz wyswietlić wylosowany ciąg zaczynając od elementu maksymalnego.
ad 1
var n, min, i, x : integer; begin write('podaj liczbe N: '); readln(n); writeln('wpisz ', n, ' liczb oddzielajac je spacjami lub enterami: '); read(min); for i := 2 to n do begin read(x); if x < min then min := x; end; writeln('najmniejsza liczba to: ', min ); readln; end.
2 do konca nie rozumiem, 2 od konca we wczytanym ciagu tak? czyli np w: [ 1 4 3 5 6 5 8 0 ] ? a wyswietlic od max czy od ostatniego? posortowac najpierw malejaco?
Użytkownik icek edytował ten post 29 marzec 2007, 10:44
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1: wczytać z klawiatury n liczb i wydrukować na ekranie najmniejszą spośród nich (MIN).
2: wylosować n liczb z określonego przez uzytkownika akresu, wyświetlić ilość wystąpień elementu MAX2 (nie maksymalny tylko przedostatni element w ciągu) oraz wyswietlić wylosowany ciąg zaczynając od elementu maksymalnego.
ad 1
var n, min, i, x : integer; begin write('podaj liczbe N: '); readln(n); writeln('wpisz ', n, ' liczb oddzielajac je spacjami lub enterami: '); read(min); for i := 2 to n do begin read(x); if x < min then min := x; end; writeln('najmniejsza liczba to: ', min ); readln; end.
2 do konca nie rozumiem, 2 od konca we wczytanym ciagu tak? czyli np w: [ 1 4 3 5 6 5 8 0 ] ? a wyswietlic od max czy od ostatniego? posortowac najpierw malejaco?
Użytkownik icek edytował ten post 29 marzec 2007, 10:44