Turbo Pascal

brocop

[size=18][/size] Witam mam problem z programem losowania liczb a mianowicie z ulozeniem licz od najmniejszej do najwiekszej oraz zeby sie niepowtarzal mam strukture i mojde zadanie polega na "napisz zeby program sprawszal czy istnieje juz taka liczba zeeli tak to program losuje jeszcze raz. uzyj petli REPEAT UNTIL program ma byc 50 elementowy oraz ma porzatkowac liczby od najmiejszej do najwiekszej"

moja prozba jest zebyscie mi pomogi tzn dopisali do mojej struktury zeby program dzialal poprawinie i opisali jak to zrobiliscie

Program tablice;
Uses Crt;
const n=7
Var
A: Array [1..n] Of integer;
i,max,min:integer;

Begin
clrscr;
Randomize;
For i:=1 to n do
begin
A[i]:=Random (50)+1;
writeln('Wylosowano Liczbe: ',A[i]);
end;
max:=A[1];
min:=A[1];

for i:=2 to n do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln('min: ',min);
writeln('max: ',max);
readln;
End.

z gory dziekuje !! PZDR[b][/b]

				fora.pl - załóż własne forum dyskusyjne za darmo Powered by phpBB © 2001, 2002 phpBB Group Avalanche style by What Is Real © 2004