Informatika és tudomány

Az ötöslottó nyerőszámainak kitalálása!
  • meril
    #204
    Egy pascalban:
    program lotto;
    uses crt;
    var t:array[1..5] of integer;i,j,k:integer;

    begin
    clrscr;
    randomize;

    for i:=1 to 5 do
    t[i]:=random(89)+1;

    for i:=1 to 5 do
    if t[i]=t[i+1] then t[i+1]:=t[i+1]+1;

    Writeln('A sz mok:');
    for i:=1 to 5 do
    write(t[i],', ');

    readln;
    end.