работа с матрицами в delphi 7

[Студентос]

Здравствуйте. Нужно составить программу , в которой дана матрица 12на12. И в этой матрице заменить нулями все элементы стоящие на главной диагонали.Помогите, очень надо.

[<- DelpHIFanat ->]

Ну, Вы, уж совсем думать не хотите! Тут делов-то максимум на 10 минут!

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
  N0=20;

Var
  A: Array[0..N0, 0..N0] Of Integer;
  i, j, n: Byte;

begin
  Repeat
    Write('N = ');
    ReadLn(N);
  Until ((N > 2) And (N < 20));

  N:=N-1;
  Randomize;
  For i:=0 To N Do
    Begin
      For j:=0 To N Do
        Begin
          A[i][j]:=Random(100);
          Write(' ', A[i][j]:3);
        End;
      WriteLn;
    End;

  For i:=0 To N Do
    A[i][i]:=0;

  WriteLn;
  For i:=0 To N Do
    Begin
      For j:=0 To N Do
        Write(' ', A[i][j]:3);
      WriteLn;
    End;

  WriteLn;
  WriteLn('Press Enter!');
  ReadLn;
end.

[Студентос]

простите, можете код этой программы на языке delphi 7 написать

[Stilet]

Она и так на Делфи написана. Консольная программа Делфи.

[Студентос]

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

Она и так на Делфи написана. Консольная программа Делфи.

А вы можете выложить фотку, как программа снаружи будет выглядеть. ну или написать из чего она состоит(кнопка, метка и т.д.)
Извините за беспокойство

[Mad_Cat]

как программа снаружи будет выглядеть

черный экран - Белые Буквы

кнопка, метка и т.д.)

их нет в

{$APPTYPE CONSOLE}

[Stilet]

выложить фотку

А это тебе не поможет.
Это консольная программа, если нужна оконная с кнопками и прочим придется ее передопиливать.

[Студентос]

благодарю вас

[Студентос]

а нельзя эту же программу написать не в apptype console, а в обычной?напишите плиз

[<- DelpHIFanat ->]

а можно написать эту же пограмму ,но не в console application?напишите пожалуйста

Студентос, ну сами-то, хоть на 10 минуток выключите лень и тупость, а включите мозг! Просто Ваш вопрос относится к типу "ребят, сделайте за меня".