Question

Какой тип данных задать?
program lab_1;
var a, i, n, m, j:;
begin
writeln('vvedit n,m'); readln(n,m);
for i:=1 to n do
for j:=1 to m do readln (a[i,j]);
for j:=2 to m do a[n,j]:=a[n,j]+a[n,j-1];
for i:=n-1 downto 1 do a[i,1]:=a[i,1]+a[i+1,1];
for i:=n-1 downto 1 do
for j:=2 to m do
begin
if a[i+1,j]>a[i,j-1]
then min:=a[i,j-1]
else min:=a[i+1,j];
a[i,j]:=a[i,j]+min;
end;
writeln(a[1,m]);
end.

Answer 1

Ответ:

int

Объяснение:

при условии что вводится будут числа