Program project;
uses crt;
var a:array[1..100,1..100] of integer;
b,c:array[1..100] of integer;
i,j,m,n,im,k,buf:integer;
begin
clrscr;
writeln('n,m=');
readln(n,m);
writeln('дан массив ');
for i:=1 to n do
begin
im:=1;
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
if (i mod 2=1) and (a[i,j]<a[i,im])
then im:=j;
if (i mod 2=0) and (a[i,j]>a[i,im])
then im:=j;
end;
b[i]:=a[i,im];
c[i]:=im;
writeln;
end;
writeln(' Ќ*Наибольшие элементы в четных строках ');
for i:=1 to n do
if i mod 2=0 then writeln(b[i]:4,под индексом ',c[i]);
writeln(' Наименьшие элементы в нечетных строках ');
for i:=1 to n do
if i mod 2=1 then writeln(b[i]:4,' под индексом ',c[i]);
k:=0;
while k<=n do
begin
for i:=2 to n do
if b[i]<b[i-1] then
begin
buf:=b[i];
b[i]:=b[i-1];
b[i-1]:=buf;
inc(k);
end;
writeln(' Сортировка значения мин. и макс.');
for i:=2 to n do
write(b[i]:4);
readkey;
end;
end.
|
