oldcss
Program ar; Var a:array [1..3] of array [1..4] of integer; i, j, min, sum:integer; begin for i:=1 to 3 do for j:=1 to 4 do read(a[i][j]); for i:=1 to 3 do for j:=1 to 4 do if a[i][j] > 10 then write(a[i][j], ' '); writeln; min:=a[2][1];
for j:=1 to 4 do if a[2][j] < min then min:=a[2][j]; writeln(min); for i:=1 to 3 do begin sum:=0; for j:=1 to 4 do sum:=sum + a[i][j]; write(sum, ' '); end; end.
Надеюсь все работает. уфф, сегодня вас много, паскалистов. :D
Answers & Comments
Var a:array [1..3] of array [1..4] of integer;
i, j, min, sum:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
read(a[i][j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i][j] > 10 then write(a[i][j], ' ');
writeln;
min:=a[2][1];
for j:=1 to 4 do
if a[2][j] < min then min:=a[2][j];
writeln(min);
for i:=1 to 3 do
begin
sum:=0;
for j:=1 to 4 do
sum:=sum + a[i][j];
write(sum, ' ');
end;
end.
Надеюсь все работает.
уфф, сегодня вас много, паскалистов. :D