помогите составить программу на Pascal дана матрица NxN.Найти наибольший элемент строки K.

1 вариант

var i, j, k, n, max: Integer;
a: array [1..100,1..100] of integer;
begin
write ('k,n (k<=n)');
readln (k,n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10+random (90);
write (a[i,j]:4);
if j=1 then max:=a[i,j];
if a[i,j] > max then max:=a[i,j];
end;
if i=k then k:=max;
writeln;
end;
write ('Найти наибольший элемент искомой строки: ',k);
end.

2 вариант
var i, j, k, n, max: Integer;
a: array [1..100,1..100] of integer;
b: array [1..100] of integer;
begin
write ('k,n (k<=n)');
readln (k,n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10+random (90);
write (a[i,j]:4);
if j=1 then max:=a[i,j];
if a[i,j] > max then max:=a[i,j];
end;
b[i]:=max;
writeln;
end;
write ('Найти наибольший элемент искомой строки ',k,': ',b[k]);
end.

немного переделай эту программу, не получится - пиши
program mas2_23; //максимальные в строках
uses crt;
var
j,i:integer;
a:array[1..6,1..6] of integer;
b:array[1..6] of integer;
BEGIN
randomize;
clrscr;
writeln( ' Исходная матрица');
writeln('-------------------------------');
for i:=1 to 6 do begin
for j:=1 to 6 do begin
a[i,j]:=random(101); write(a[i,j]:5);
end;
writeln; end;
writeln;
writeln(' Максимальные элементы в строках ');
writeln('-------------------------------');
for i:=1 to 6 do begin
b[i]:=a[i,1];
for j:=1 to 6 do
if b[i]<a[i,j] then b[i]:=a[i,j];
write(b[i]:5); end;
writeln;
writeln('конец задачи ');
//readkey;
END.

За 50 рублей решу быстро и качественно