Если у меня осталась тетрадь с прошлого года то отошлю
Uses Crt;
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.
var
a, b, c, m : integer;
begin
read (a, b, c);
m := a;
if b < m then m := b;
if c < m then m := c;
writeln (m);
end.
var
a : array [1..3] of integer;
i, m : integer;
begin
m := a[1];
for i := 2 to 3 do
if a[i] < m then m := a[i];
writeln (m);
end.
var
a, b, c : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then writeln (a)
else if (b <= c) and (b <= a) then writeln (b)
else writeln (c);
end.
17-В потомучто - плужырный
Картинка во вложении. Сначала рисуем по красным стрелкам, потом - по синим. Или наоборот.