Question

Napisz program zapisujący do tablicy zmienne losowe z zakresu 1-100. znajdź największą ze zmiennych zapisanych w tablicy.

Answer 1

Program nazwa;
uses crt;
var
        tablica:array[1..100] of integer;
        x:integer;
        max:integer;
begin
clrscr;
        max:=0;

        randomize;
        for x:=1 to 100 do
        begin
                tablica[x]:=random(100)+1;
                if (tablica[x] > max) then
                        max:=tablica[x];
        end;

        writeln('Najwieksza liczba to: ',max);

readln;
end.

Answer 2

Tylko musisz zmienic w begin w jakim zakresie chcesz :D