Программа:
const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,s,min,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=0; k:=1;
for j:=1 to m do min:=min+a[1,j];
writeln('s1 = ',min);
for i:=2 to n do
begin
s:=0;
for j:=1 to m do s:=s+a[i,j];
writeln('s',i,' = ',s);
if s<min then begin min:=s; k:=i; end;
end;
writeln('min сумма = ',min,' (',k,'-я строка)');
end.
Пример:
Исходный массив:
24 61 29 35 82 8
98 58 55 2 11 35
14 46 59 55 79 8
4 25 4 48 83 49
96 27 56 87 91 63
s1 = 239
s2 = 259
s3 = 261
s4 = 213
s5 = 420
min сумма = 213 (4-я строка)
<em>телерепортер успел заснять пилотов, занявших второе и третье места, которые поливали друг друга шампанским. Далее в кадр попал мокрый Хилл, поздравляющий пилота, занявшего второе место.</em>Из этого делаем вывод, что Хилл - 3.
<em>Шумахер и Кулхардт пытались втащить на пьедестал почета пилота, занявшего четвертое место.</em>Так как Хилл уже третий, то из перечисленных остался Алези - он 4
<em>В это время Шумахер с четвертым гонщиком пожимали друг другу руки.</em>В это время 2 и 3 места были на пьедистале, следовательно Шумахер - 1.
Ну и остался Кулхардт - он 2
1) y = 12, x = 3.
2) k = 30.
3) s = 61.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));
var z:real;
if x<b then z:=ArcCos(a*a/(a*a+x*x))
else
if x=b then z:=Ln(2+Cos(b*x))
else z:=Abs(Tan(b*x))+2**(-a*x);
Writeln('z(x)=',z)
end.