Generowanie liczb

0

Czy da się zmodyfikować podany kod programu tak, aby zamiast wpisywania, generował sam liczby i wyświetlał je oraz na koniec wyświetlał maksymalną?

 var n,i,x,max:integer;

begin
Write('Podaj ilosc liczb, ktora chcesz wczytac: ');
Readln(n);
max:=0;
for i:=1 to n do begin
Write('Podaj wartosc liczby nr ',i,': ');
Readln(x);
if x>max then begin max:=x; end;
end;

writeln('Najwieksza wartosc wczytanej liczby to ',max);
Readln;

end.
0

Najpierw ten dopracuj aby działał.
przy wprowadzeniu 3-ch liczb:
-1 -2 -3
program poda:
Najwieksza wartosc wczytanej liczby to 0

0

Moja "precyzyjna" odpowiedź na "precyzyjnie" zadane pytanie przez autora wątku: da się.

0
leszkowaty napisał(a):

Czy da się zmodyfikować podany kod programu tak, aby zamiast wpisywania, generował sam liczby [..]

Zamiast procedury

ReadLn

zastosuj odpowiednio funkcję Random

0
leszkowaty napisał(a)

Czy da się zmodyfikować podany kod programu tak, aby zamiast wpisywania, generował sam liczby i wyświetlał je oraz na koniec wyświetlał maksymalną?

Tak, da się - potrzeba Random, Randomize i TBrain (niestety linka nie podam);

1 użytkowników online, w tym zalogowanych: 0, gości: 1