Программа на Delphi.

[Heartles07]

Всем привет.

Нужна помощь по программированию. Напишите пожалуйста код программы к следующей задаче на Delphi (желательно) или хотя бы на паскале (но рабочую). Задача:

Подсчитать количество четных элементов в каждом столбце матрицы размером МхN, элементы которой задаются с помощью датчика случайных чисел на интервале [-98; 54].

[Stilet]

Почти Делфи:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						ListBox1: TListBox;
						procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const m=10;n=10;
var a:array[1..n+1,1..m] of integer; i,j,cnt:integer; s:string;
begin
 //Подсчитать количество четных элементов в каждом столбце матрицы размером МхN,
  //элементы которой задаются с помощью датчика случайных чисел на интервале [-98; 54].
 ListBox1.Align:=alClient;
 ListBox1.Font.Name:='Courier New';
 for i:=Low(a) to High(a)-1 do begin  s:='';
   for j:=Low(a[i]) to High(a[i]) do begin
    a[i,j]:=-98+Random(98+54);
    if i=Low(a) then a[High(a),j]:=0;
    if odd(a[i,j]) then inc(a[High(a),j]);
    s:=s+format('%5d',[a[i,j]]);
   end;  ListBox1.Items.Append(s);
 end; s:='';
 for j:=Low(a[i]) to High(a[i]) do s:=s+format('%5d',[a[i,j]]);
 ListBox1.Items.Append('');ListBox1.Items.Append(s);
end;

end.

[Heartles07]

Stilet, огромное спасибо!

[Stilet]

Наздоровье )