Question

un program pascal care pentru o matrice determina ekementul maxim din fiecare coloana

Answer 1

uses GraphABC;var a:array[1..10,1..10] of integer;x,y,n,max,min:integer;beginmax:=a[1,1];for 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;writeln('Max nr este ',max);
end.

3fa5b29099e0a3cbc128f5917fbec8dd.pas

b94ba1804ee222b3dd0a76a0d96798ea.txt