платная помощь студенту

[AVer]

Gambler мне он сказал писать на Delphi но в консоли.

[AVer]

program sdvig;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Q:array[1..11,1..11] of char;
     s:string;
     i,j,n,m:integer;

procedure vivod;
begin
for n:=1 to 8 do
 begin
 for m:=1 to 8-n do
 write(' ':2);
 for j:=1 to 11 do
   begin
   Q[n,j]:=s[j];
   write(Q[n,j]:2);
   end;
 s:=s[11]+s;
 writeln;
 end;
for n:=8 to 10 do
 begin
 for m:=1 to 18-n do
 write(' ':2);
 for j:=1 to 11 do
   begin
   Q[n,j]:=s[j];
   write(Q[n,j]:2);
   end;
 s:=s[11]+s;
 writeln;
 end;
end;

begin
s:='ABCDEFGHIJK';
for i:=1 to 11 do
 begin
 for j:=1 to 11 do
   begin
   Q[i,j]:=s[j];
   write(Q[i,j]:2);
   end;
 s:=s[11]+s;
 writeln;
end;
writeln;
vivod;
readln;
end.

[AVer]

program zamena;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=10;

var A:array[1..n,1..n] of integer;
    x,max,i,j:integer;
    s1,s2:string;

procedure zapolnenie;
begin
for i:=1 to n do
begin
 for j:=1 to n do
 begin
 A[i,j]:=random(10);
 Write(A[i,j]:2);
 end;
writeln;
end;
end;

procedure maximum;
begin
for i:=1 to n do
if A[i,i] > max then
begin
max:=A[i,i];
x:=i;
end;
end;

procedure perevorot;
begin
for i:=1 to n do
begin
s1:=s1+inttostr(A[x,i]);
s2:=s2+inttostr(A[i,x]);
end;
for i:=1 to n do
 begin
 A[i,x]:=strtoint(s1[i]);
 A[x,i]:=strtoint(s2[i]);
 end;
for i:=1 to n do
begin
 for j:=1 to n do
 begin
 Write(A[i,j]:2);
 end;
writeln;
end;
end;

begin
max:=-1;
randomize;
zapolnenie;
maximum;
writeln;
perevorot;
readln;
end.

[Alar]

я считаю, что отдать деньги за работу не зазорно, так как можно попросить не только код, но и описание, пояснение и прочее...
но это уже личный разговор, в личных сообщениях

[Gambler]

правильно, если нужен только код, то бесплатно, а если с описанием, то пишите в личку.

[volonteri@list.ru]

Пришли мне на яндекс деньги, Кошелёк:41001240650138