066536 / 350

program Maximum;
uses crt;
var i,j,k,n,max:integer;
b,a:array[1..100] of integer;
begin
clrscr;
writeln('введите n и k');
readln(n, k);
for i:=1 to k*n do begin
a[i]:=-50+Random(100);
write(a[i]:5);
end;
writeln;
max:=-1000;
for i:=0 to k do begin
for j:=i*n+1 to (i+1)*n do begin
if a[j]>=max then max:=a[j];
b[i+1]:=max;
end;
max:=-1000;
end;
for j:=1 to k do write(b[j]:5);
writeln;
readln;
end.