Informatică, întrebare adresată de nlesan, 9 ani în urmă

fie dat tabloul bidimensional a[1..10,1..10]determinati numarul maximal din tablou..va rog frumos...am nevoie la informatica...


Kirilll: Pot doar in PascalABC.net in TurboPascal nu

Răspunsuri la întrebare

Răspuns de Kirilll
0
uses GraphABC;var a:array[1..10,1..10] of integer;x,y,n,max,min:integer;beginmax:=a[1,1];//3for x:=3 to 10 dofor y:=3 to 10 do begina[x,y]:=random(100);textout(x*20,y*20,a[x,y]);end;for x:=4 to 10 dofor y:=4 to 10 do beginif a[x,y]>max thenmax:=a[x,y];end;//writelnwriteln('Max nr in ',max);
end.
Anexe:
Alte întrebări interesante