Помогите решить в паскале

[Alikcool]

Ввести с клавиатуры величины a,b,c,d, e,f. Найти наибольшие значения для троек величин (a,b,c) и (d, e,f), а затем сумму этих наибольших значений вывести на экран.

п.с наибольшие значения для трое величин я нашел, но не понимаю как их сложить.

[evg_m]

п.с наибольшие значения для трое величин я нашел,

присвоить эти значения каким-то переменным.

но не понимаю как их сложить.

а потом сложить эти переменные.

[Alikcool]

спасибо попробую сделать так

[Алексей_2012]

var
a,b,c,d,e,f:real;
itog:real;
begin
  writeln('Input A: ');
  readln(a);
  writeln('Input B: ');
  readln(b);
  writeln('Input C: ');
  readln(c);
  writeln('Input D: ');
  readln(d);
  writeln('Input E: ');
  readln(e);
  writeln('Input F: ');
  readln(f);

  if (a>b) and (a>c) then itog:=a else
    if (b>a) and (b>c) then itog:=b else
      if (c>a) and (c>b) then itog:=c;
      
   if (d>e) and (d>f) then itog:=itog+d else
    if (e>d) and (e>f) then itog:=itog+e else
      if (f>d) and (f>e) then itog:=itog+f; 
      
      writeln('summ max troek ',itog);
 
end.

Простейшее топорное решение

[povava]

Я так и не понял как сложить

[Алексей_2012]

Из моего кода или из вашего?

[Arigato]

Сообщение от povava

Я так и не понял как сложить

Операция +

[digitalis]

Интересно попробовать, если все элементы в тройке одинаковы. Сюрприииз...

[Алексей_2012]

Спасибо за тестинг)

var
a,b,c,d,e,f:real;
itog:real;
begin
  writeln('Input A: ');
  readln(a);
  writeln('Input B: ');
  readln(b);
  writeln('Input C: ');
  readln(c);
  writeln('Input D: ');
  readln(d);
  writeln('Input E: ');
  readln(e);
  writeln('Input F: ');
  readln(f);

  if (a>=b) and (a>=c) then itog:=a else
    if (b>=a) and (b>=c) then itog:=b else
      if (c>=a) and (c>=b) then itog:=c;
      
   if (d>=e) and (d>=f) then itog:=itog+d else
    if (e>=d) and (e>=f) then itog:=itog+e else
      if (f>=d) and (f>=e) then itog:=itog+f; 
      
      writeln('summ max troek ',itog);
 
end.

[digitalis]

Совсем другой коленкор