[DEMONTER]

Нужен код, желательно с пояснением.
Оплачу рублей 50-100 на вм/киви/пайпел/

[Ildar-tsr]

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

Оплачу рублей 50-100 на вм/киви/пайпел/

Off: Кредит в банке взял?

[Aristarh Dark]

Сделаю за 100р. на телефон, пиши в ПМ

[DEMONTER]

что такое пм?

[Aristarh Dark]

Персональные сообщения

[DEMONTER]

нужно другую задачку:

[lmikle]

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

нужно другую задачку:

Издеваешься? Задачка для 1го класса школы:

Код:

uses
  Math;

const
  N = 50;

var
  I, J : Integer;
  A : Array [1..N,1..N] Of Integer
begin
  For I := 1 To N Do
    For J := 1 To N Do
      A[I,J] := min(min(i,j),min(N-i+1,N-j+1));