Откоректируйте задание на двумерный массив

[Toxass]

А что писать во writeln -е???

[Toxass]

ага, с writeln- ом разобрался, и еще подскажите как сделать этуже программу через Делфи а не через паскаль!

[alex_fcsm]

здесь чисто из паскаля clrscr, writeln замените на то куда будите выводить(StringGrid, PaintBox и т.п.), а эту прогу можно вешать как обработчик на нажатие кнопки

В общем это не очень сложно - разберетесь

[Toxass]

Сообщение от alex_fcsm

здесь чисто из паскаля clrscr, writeln замените на то куда будите выводить(StringGrid, PaintBox и т.п.), а эту прогу можно вешать как обработчик на нажатие кнопки

В общем это не очень сложно - разберетесь

это clrscr вообще убрать, а вместо врайтэлэна написать Stringgrid ичто в нем как куда, объясните попонятней пожалуйста!

[alex_fcsm]

Сообщение от Toxass

это clrscr вообще убрать, а вместо врайтэлэна написать Stringgrid ичто в нем как куда, объясните попонятней пожалуйста!

clrscr- очищает экран. Вместо writeln - написать соответствующие процедуры вывод соответствующих компонент.

например было writeln -------

Label1.Caption:=Label1.caption+IntToStr(a[i,j])

- ЭТО ТОЛЬКО ПРИМЕР. Вы вправе написать сюда любую компоненту, которую используете(я извратился с Label )

[Toxass]

то есть также будет и memo1.caption:=memo1.caption+inttos tr(a[i,j]

[alex_fcsm]

НЕТ в каждой компоненте свои способы в Memo если не ошибаюсь Memo1.Lines.Add(s:string); в ListBox1.Items.Add(s:string); Почитайте Delphi а не гадайте

[Toxass]

а у вас часом нету ссылочки на вот такие вот "правила" по Делфи?)

[alex_fcsm]

Что же Вы так обленились

[Toxass]

у меня почемуто ничего не получается: я создал форму Делфи, содал в нем бутон и листбокс ввел услови и выдает ошибку, что нитак?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j,temp,k:integer;
    a:array[1..10,1..10] of integer;
    b,t:array[1..10] of integer;
begin
  randomize;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  begin
   a[i,j]:=random(100)-random(100);
  end;
 end;
for j:=1 to 10 do
 begin
  b[j]:=0;
   for i:=1 to  10 do
     if a[i,j]<0 then b[j]:=b[j]+a[i,j];
 end;

for i:=2 to 10 do
    for j:=10 downto i do
      if b[j-1]<b[j] then
        begin
          Temp:=b[j-1];
          b[j-1]:=b[j];
          b[j]:=temp;
          temp:=j;
          for k:=1 to 10 do
           t[k]:=a[k,temp];
          for k:=1 to 10 do
           a[k,temp]:=a[k,temp-1];
          for k:=1 to 10 do
           a[k,temp-1]:=t[k];
        end;
writeln('=================================================');
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   write(a[i,j]:5);
 writeln;
 end;
writeln('--------------------------------------------------');
writeln;
for i:=1 to 10 do
 ListBox1.Items.Add(b[i]);
 readln;
end;

end.