[maxmaslo]

Код:

procedure TForm1.Button1Click(Sender: TObject);
const k=4;
Var
  n,i,j: Integer;
  a:array[1..4,1..4] of Integer;
  st:string;
  begin
 n:=11;
 for i:= 0 to 4  do
 for j:=0 to  4 do
 a[i,j]:=round(k/2-i+0.3)*(j*k+5*n)*sin(j);//здесь ошибка
 str(a[i,j],st);
 StringGrid1.Cells[i,j] := st;
end;

пробовал round, всё равно одно и то же. помогите, пожалуйста.

[angvelem]

1. Round не закрывает полностью строку.
2. Массив а описан с 1-цы, а цикл почему-то с 0.

[maxmaslo]

спасибо