Новый текстовый документ (2)

Посмотреть архив целиком
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
type B_arr=array [1..m,1..n] of integer;
A_arr=array [1..2m] of integer;
var ni, mi, i, j: integer;
k;imax,imin; integer;
a:B_arr;
b:A_arr;
begin
randomize
repeat
write ('2<=m<=8, 2<=n<9');
read(mj; nj);
until ((2<=mi<=8)an(2<=ni<=9));
for i=1 to n do
for j=1 to m do
a[i,j]:=random(10)-6;
for i:=1 to n do
begin
for j:=1 to m do
writ (a[i;j]);
writeln;
end;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if a[i;j]<0
then k:=k+1;
end;
max:=b[1]; imax:=1;
min:=b[1]; imin:=1;
for i:=2to n do
if b[i]begin
min:=b[i];
imin:=i;
end;
if b[i]>max then
begin
max:=b[i];
imax:=i
end;
{a iiao? no?ieo ia?aoiaei}
for i:=1 to m do
begin
b[i]:=a[imin,i];
b[i+m]:=a[imax,i];
end;
writeln('Puz<');
k:=0;
for i:=1 to n do
for j:=n downto i+1 do begin
if a[j-1] temp:=a[j-1];
a[j-1]:=temp;
for j1:=1 to n do
write (a[j1]:3);
writeln(' i=',i, ' j=',j:2);
k:=k+1
end;
end;
for i:=1 to n do
write( a[i]:3);
writeln( 'k=', k);
writeln;
end.

Случайные файлы

Файл
Readme.txt
README.TXT
spitsh.txt
laba4.txt
от автора.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.