Txt и doc текстовый, zip архив, exe исполнительный
Либо 10, тогда всегда 29+29=58
Либо 0, поскольку сумму 58 нельзя получить сложением 29 с другим числом
Среда PascalABC
var n,i,k,max:integer;
begin readln(max);
n:=1;
for i:=2 to 10 do begin
readln(k);
if k>max then begin max:=k; n:=i; end; end; //СТРОЧКА С ИСПРАВЛЕННОЙ ОШИБКОЙ
writeln(max); //макс балл
writeln(n); //номер участника
end.
теперь синтаксис правильный! еще я нашел ошибку у себя из-за которой программа выдавала минимальный балл и номер
Var mas: array [1..8,1..5] of integer;
i, j, max, k, s:integer;
begin
Randomize;
for i:=1 to 8 do
begin
for j:=1 to 5 do
begin
mas[i,j]:=random(21)-10;
write(mas[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
begin
s:= 1;
for j:=1 to 5 do
s:= s * mas[i, j];
if (i=1) or (s>max)
then
begin
k:= i;
max:= s;
end;end; write('Строка ', k, ': ');for j:=1 to 5 do
write(mas[k,j]:4);
writeln;
end.