Program Bally;
var a:array[1..250] of string;
N,l,max,x,i,b,p:integer;
z,k:string;
begin
max:=0;
readln(N);
for i:=1 to N do readln(a[i]);
z:=a[1];
l:=Pos(' ',z); Delete(z,1,l);
l:=Pos(' ',z); Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); max:=max+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); max:=max+x;
for i:=2 to N do begin
z:=a[i];
b:=0;
l:=Pos(' ',z); Delete(z,1,l);
l:=Pos(' ',z); Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); b:=b+x;
if b>max then max:=b;
end;
for i:=1 to N do begin
z:=a[i];
b:=0;
l:=Pos(' ',z);
p:=l;
Delete(z,1,l);
l:=Pos(' ',z); p:=p+l;
Delete(z,1,l);
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(copy(z,1,Pos(' ',z)-1),x,l); b:=b+x;
Delete(z,1,Pos(' ',z));
Val(z,x,l); b:=b+x;
if b=max then begin
z:=a[i];
delete(z,p,length(z)-p+1);
writeln(z);
end;
end;
end. Наверное так!!
Разветвляющий алгоритм содержит блок проверки условия. В зависимости от результата проверки условия выполняется та или иная последовательность операций,называется ветвью. При этом форма разветвления может быть полной или сокращёной.
1-С) достоверность - отражает истинное положение дел
2-Е) точность - степень близости к реальному состоянию объекта
3-В) ценность - важность при решении задач
<span>4-D) понятность - </span>выраженность на языке доступном для получателя информации
<span>5-А) своевременность - </span>актуальность информации
