Заполнить элементы массива B(10,10) случайными числами. Определить сумму элементов, образующих периметр массива и количество B[i,i]<=0,1
как то так, над количеством думай сам)
var i,j:integer;
b:array[0..9,0..9] of float;
sum1,sum2,sum3,sum4,sum:float;
begin
for i:=0 to 9 do
for j:=0 to 9 do
begin
b[i,j]:=1/random(13);
string.grid.cells[i,j]:=floattostr(b[i,j]);
end;
for j:=0 to 8 do
begin
sum1:=b[1,j]+b[1,j+1];
sum2:=b[9,j]+b[9,j+1];
end;
for 1:=1 to 7 do
begin
sum3:=b[i,1]+b[i+1,1];
sum4:=b[i,8]+b[i+1,8];
end;
sum:=sum1+sum2+sum3+sum4;
end.
⇢