Răspuns :
Răspuns:
program MaximePLinie;
const nmax=100;
var A:array[1..nmax,1..nmax]of integer;
B:array[1..nmax]of integer;
n,m,i,j:integer;
begin
write('Dati nr. de linii, n= '); read(n);
write('Dati nr. de coloane, m= '); read(m);
writeln('Dati elementele matricei:');
for i:=1 to n do
begin
read(B[i]); a[i,1]:=B[i];
for j:=2 to m do
begin
read(a[i,j]);
if a[i,j]>B[i] then B[i]:=a[i,j];
end;
end;
writeln('Elementele maxime pe fiecare linie:');
for i:=1 to n do
write(B[i], ' ');
end.
Explicație:
generam vectorul liniar B, în care vom păstra maximele pe linii.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!