Question

Viết chương trình Nhập vào mảng hai chiều cấp nxm, tính tổng các phẩn tử trong ma trận. Tỉnh tổng các phần tử lớn nhất tren mỗi hàng. Sắp xếp mảng theo thứ thự tăng dần(pascal)

Nhanh tay lên các bro ơi!!!

 

Answer 1

uses crt;

var a:array[1..100,1..100]of integer;

n,m,i,t1,t,ln:integer;

begin

clrscr;

readln(n,m);

for i:=1 to n do 

  for j:=1 to m do readln(a[i,j]);

t:=0;

for i:=1 to n do

  for j:=1 to m do 

  t:=t+a[i,j];

writeln(t);

t1:=0;

for i:=1 to n do 

begin

ln:=a[i,1];

for j:=1 to m do 

  if ln<a[i,j] then ln:=a[i,j];

t1:=t1+ln;

end;

writeln(t1);

readln;

end.