Дан массив размера 5 x 6 с элементами целого типа. Написать про-грамму для вычисления числа положительных элементов массива кратных «5»

[liza123]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button1Click(Sender: TObject);

 var
  i,j,k: integer;
  A: array[1..5,1..6] of integer;
begin
  k:=0;
  For i:= 1 to 5 do
  For j:=1 to 6 do
  If length(StringGrid1.Cells[i,j])<>0
  then A:=StrToInt(StringGrid1.Cells[i,j])
  else
   A:=0;
begin
  for i:=0 to 4 do
  if i mod 5=0
  then k:=k+1
  else
  end;
begin
  ShowMessage('íå âñå ÿ÷åéêè çàïîëíåíû');
  exit;
end;

end.

помогите с ошибкой

[northener]

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

помогите с ошибкой

С какой ошибкой, уважаемая Лиза123?

[digitalis]

Это даже не кошмар - это ужас! Надергано из разных источников и сшито на живую нитку без даже минимальной попытки понять.
Читать такой неформатированный исходник - надо заставлять зэков строгого режима
Ну скажите мне, если заполняется матрица, то почему поиск нужных чисел ведется по одномерному массиву? Если А- это массив, то как может быть А=0 ?

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k: integer;
A: array[1..5,1..6] of integer;
begin
k:=0;
For i:= 1 to 5 do
   For j:=1 to 6 do
       If length(StringGrid1.Cells[i,j])<>0
          then A[i,j]:=StrToInt(StringGrid1.Cells[i,j])
          else  A[i,j]:=0;
For i:= 1 to 5 do
   For j:=1 to 6 do
     if A[i,j] mod 5=0  then k:=k+1 ;
  ShowMessage('K = ' + IntToStr(k));
end;

-------------------------------
Насчет "помогите с ошибкой"... Напомнило: раньше в белорусской деревне в пору посевной для получения в пользование на один день лошади надо было записаться на определенное число и проставить бригадиру пузырек. Это называлось "договориться с конём"

[Serge_Bliznykov]

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

If length(StringGrid1.Cells[i,j])<>0
          then A[i,j]:=StrToInt(StringGrid1.Cells[i,j])
          else  A[i,j]:=0;

неверно. Даже если не брать во внимание того, что в гриде индексация идёт от нуля (а у Вас с единицы), нужно учитывать, что в этом вывёрнутом StringGrid первый индекс - это индекс столбца, второй - индекс строки.
поэтому:

If length(StringGrid1.Cells[j,i])<>0
          then A[i,j]:=StrToInt(StringGrid1.Cells[j,i])
          else  A[i,j]:=0;

а ещё лучше заменить это одной строчкой:

A[i,j]:=StrToIntDef(StringGrid1.Cells[j,i], 0);

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

if A[i,j] mod 5=0  then k:=k+1;

а тут забыли, что нужны только положительные значения:

if (A[i,j] >0) and (A[i,j] mod 5=0)  then Inc(k);

[digitalis]

Я в тонкости не вникал, но когда массиву присваивают значение А=0, то тут уж слова бессильны. Индексация СтрингГрида вылезла бы на первом же тестовом запуске. Я ее лет 5 как не использовал, могло выветриться. А насчет "положительных" - я просто не обратил внимания.
Как сказал один мой знакомы модер, "тут не решатель задач" Получив нужное направление и почитав "Дельфи для чайников", студеньт может и должен допилить заготовку до нужной кондиции. Если, конечно, он не ошибся в выборе "куда пойти лечиучиться".