Предмет: Информатика,
автор: 21fox
дана матрица 5 на 5.надо создать такую программу которая будет выводить максимальное число каждой из строки.помогите плиз)
Ответы
Автор ответа:
0
uses crt;
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,j,max,t:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
end;
t:=1;
writeln;
repeat
max:=a[t,1];
for i:=t to t do
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln(max);
inc(t);
until t>n
end.
const n=5;
m=5;
var a:array[1..n,1..m] of integer;
i,j,max,t:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
read(a[i,j]);
end;
t:=1;
writeln;
repeat
max:=a[t,1];
for i:=t to t do
for j:=1 to m do
if a[i,j]>max then max:=a[i,j];
writeln(max);
inc(t);
until t>n
end.
Автор ответа:
0
const
n= 5;
var
a: array [1..10,1..10] of integer;
i,j,max: integer;
begin
for i:= 1 to n do begin
for j:= 1 to n do begin
a[i,j]:= random(10); // заполнение массива случайными числами
write(a[i,j],' ')
end;
writeln
end;
for i:= 1 to n do begin
max:= a[i,1];
for j:= 1 to n do
if a[i,j]>max then max:= a[i,j];
writeln('максимум ',i,' строки',' =',max)
end
end.
n= 5;
var
a: array [1..10,1..10] of integer;
i,j,max: integer;
begin
for i:= 1 to n do begin
for j:= 1 to n do begin
a[i,j]:= random(10); // заполнение массива случайными числами
write(a[i,j],' ')
end;
writeln
end;
for i:= 1 to n do begin
max:= a[i,1];
for j:= 1 to n do
if a[i,j]>max then max:= a[i,j];
writeln('максимум ',i,' строки',' =',max)
end
end.
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Другие предметы,
автор: skalikovaalisa
Предмет: Химия,
автор: akbarmahmud2003
Предмет: Геометрия,
автор: Паша000