двумерный числовой массив

[Irishka_F]

Заполнить двумерный числовой массив целыми числами. Найти первый кратный 3 элемент каждого столбца

[S1av0k]

1. Покажите свой код и задайте вопросы.
2. Если не понятно совсем ничего касательно Вашей задачи, то ознакомьтесь с первой темой раздела, где приведена теория и типичные примеры.
3. Вернуться к 1.

[Irishka_F]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
BitBtn1: TBitBtn;
Edit1: TEdit;
StringGrid1: TStringGrid;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
OpenDialog1: TOpenDialog;
Label4: TLabel;
lbl1: TLabel;
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array[0..9,0..9] of integer;
implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);
var i,j:byte;
begin
Label1.Visible:=true;
Label2.Visible:=true;
Edit1.Visible:=true;
Edit2.Visible:=true;
for i:=0 to stringgrid1.RowCount-1 do
for j:=0 to stringgrid1.ColCount-1 do
stringgrid1.Cells[j,i]:='0';
end;
end.


массив высела, как найти первый кратны 3..не понимаю

[S1av0k]

Алгоритм такой:
1. Берешь столбец с индексом i.
2. В этом столбце проверяешь на кратность элемент j. Если кратен 3 - то первый кратный 3 элемент для этого столбца найден. Если не найден, то j := j + 1. Проверяется теперь этот элемент. И т.д. по всем элементам элементам текущего столбца.
3. Когда все элементы столбца проверены или найден кратный 3 элемент, увеличиваешь i := i + 1. Этот счетчик увеличивает номер текущего столбца.
4. Повторить 2.

Пункт 3 нужно повторять до тех пор, пока не будет проверен последний столбец.
Ещё один момент. Из условия задачи не ясно, что выводить, если в столбце отсутствует элемент, кратный 3.