помогите с массивами

[lg12]

значение двумерного массива А 5 на 5 задаются с помощью вложенного цикла в представленном фрагменте программы:
паскаль

for i:=1 to 5 do
for j:=1 to 5 do
begin
A[i,j]:=i*j
end;
end.

сколько элементов массива будут иметь значения больше десяти.
написать надо на делфи. только начинаю работать с массивами, много чего не понимаю. требуется помощь

[spamer]

for i:=1 to 5 do
  for j:=1 to 5 do
  begin
    mas[i,j]:=i*j;
    if A[i,j] > 10 then inc(k);
    end;
Caption:= IntToStr(k);

[lg12]

procedure TForm1.FormCreate(Sender: TObject);
var
A:array[1..5]of integer;
k,i,j:integer;
begin
for i:=1 to 5 do
  for j:=1 to 5 do
  begin
  k:=0;
    A[i,j]:=i*j;
    if A[i,j] > 10 then
    k:=k+1;
    end;

end;

end.

подскажите где ошибка

[Вавел из ГМТУ]

А что сказал компилятор?

[spamer]

Говориш ты книгу читал

procedure TForm1.FormCreate(Sender: TObject);
var
A:array[1..5, 1..5]of integer;
k,i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
k:=0;
A[i,j]:=i*j;
if A[i,j] > 10 then
k:=k+1;
end;

end;

end.

[lg12]

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

Говориш ты книгу читал

procedure TForm1.FormCreate(Sender: TObject);
var
A:array[1..5, 1..5]of integer;
k,i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
k:=0;
A[i,j]:=i*j;
if A[i,j] > 10 then
k:=k+1;
end;

end;

end.

всеравно не правильно. если использовать этот код то ответ 1, а правильный ответ 8

[Lemo]

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

всеравно не правильно. если использовать этот код то ответ 1, а правильный ответ 8

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
A:array[1..5, 1..5]of integer;
k,i,j:integer;
begin
k:=0;
for i:=1 to 5 do
for j:=1 to 5 do
begin
A[i,j]:=i*j;
memo1.Lines.Add (Inttostr(A[i,j]));
if A[i,j] > 10 then
k:=k+1;
end;
edit1.text:=inttostr(k);
end;

end.

Вот для консольного приложения:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
A:array[1..5, 1..5]of integer;
k,i,j:integer;
begin




k:=0;
for i:=1 to 5 do  begin
for j:=1 to 5 do  begin
begin
A[i,j]:=i*j;
write(A[i,j], ' ');
if A[i,j] > 10 then
k:=k+1;

end;
end;

writeln;
writeln;

 end;
 Write('RESULT => ' , k);
readln;

end.

[Serge_Bliznykov]

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

for i:=1 to 5 do
for j:=1 to 5 do
begin
k:=0;
A[i,j]:=i*j;
if A[i,j] > 10 then
k:=k+1;
end;

lg12, я красным отметил ошибочную строчку.
Вы в цикле каждый раз сбрасываете счётчик нужных чисел в НОЛЬ! Это неверно. иницилизацию (начальное присвоение переменной нулю) надо делать ДО ЦИКЛА
k:=0;
for i:=1 to 5 do
for j:=1 to 5 do
begin ....


Добавлено
p.s. lg12, в посте от Lemo всё написано верно!!!
и цель моего поста просто указать на Вашу ошибку...