Ezt valaki meg tudja csinálni?

Egyesítsétek erőiteket:

http://www.gyakorikerdesek.hu/szamitastechnika__programozas_..

Szerintem itt elég sokan meg.

Például én, 10 ezer forintért.

Tessék itt van ingyér, de mivel nem írtál nyelvet ezért Delphi:

program Project2;

{$APPTYPE CONSOLE}

uses SysUtils;

var matrix : array [1..20, 1..20] of Integer;

i, j, osszeg : Integer;

begin

Randomize;

osszeg := 0;

for i := 1 to 20 do for j := 1 to 20 do matrix[i][j] := Random(50) + 1;

for i := 1 to 20 do

begin

for j := 1 to 20 do Write(matrix[i][j]:3);

WriteLn;

end;

for i := 1 to 20 do for j := 1 to 20 do Inc(osszeg, matrix[i][j]);

WriteLn(#10#13, 'Az atlag: ',osszeg / 400:0:5);

ReadLn;

end.

dim osszeg as integer, szam as byte, x as byte, y as byte

randomize timer

for y = 1 to 20

      for x = 0 to 19

            szam = rnd * 100 - 50

            osszeg = osszeg + szam

            locate y, x * 4 + 1

            if (szam > -10) and (szam < 10) then print " ";

            print szam;

      next x

next y

print chr(10) + chr(13) + chr(10) + chr(13); "Átlag: "; osszeg / 400