Mam do napisania program:
Stworzyć tablicę jednowymiarową 50-elementową, uzupełnić ją elementami losowymi i wyświetlić na ekranie. Znaleźć i wyświetlić 3 największe elementy w tablicy.
Mój program:
uses crt;
var
tab:array[1..50] of integer;
max:array[1..50] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 50 do
begin
tab[i]:=random(100);
write(tab[i],' ');
end;
writeln;
for i:=1 to 100 do
for j:=1 to 3 do
begin
if max[j]<tab[i] then
max[j]:=tab[i];
end;
writeln('Maksymalne elementy tablicy:');
for j:=1 to 3 do
write(max[j],' ');
readln;
end.
Z grubsza mi poszło, ale mam gdzieś błąd i ustalają się złe te maksymalne elementy tablicy. Czy mogłby ktoś z was mi poprawić błąd? Z góry dziękuje za odpowiedzi.