Дано дві трійки дійсних чисел. У кожній трійці всі числа різні. Знайдіть середнє...

Question

Дано дві трійки дійсних чисел. У кожній трійці всі числа різні. Знайдіть середнє арифметичне максимальних чисел кожної трійки.

написать программу на паскале

Comments

пример можешь привести?

---

типо 1 тройка числа 5,6,1 самое больолше 6 , 2 тройка 3,2,8 самое большое 8 , (8+6)/2 = 7

Answer 1

Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin    writeln('First');    a1:=5;    b1:=6;    c1:=1;    writeln(a1,'-',b1,'-',c1);    writeln('Second');    a2:=3;    b2:=2;    c2:=8;    writeln(a2,'-',b2,'-',c2);    if(b1>a1)and(b1>c1) then a1:=b1    else    if (c1>a1) then a1:=c1;    if(b2>a2)and(b2>c2) then a2:=b2    else    if (c2>a2) then a2:=c2;    s:=(a1+a2)/2;    writeln(s:0:2);end.

Comments

надо чтобы числа были рандомные, чтобы вписать можно было любое лисло

---

рандом или с клавиутуры?

---

кароч, выскакивет окошоко , туда пишешь число так 3 раза протом вторая тройка и оно топределяет число и делает среднее из них

---

program HelloWorld;
var a1,b1,c1,a2,b2,c2:integer; s:double;
begin
readln(a1);
readln(b1);
readln(c1);
readln(a2);
readln(b2);
readln(c2);
writeln('First');
writeln(a1,'-',b1,'-',c1);
writeln('Second');
writeln(a2,'-',b2,'-',c2);
if(b1>a1)and(b1>c1) then a1:=b1
else if (c1>a1) then a1:=c1;
if(b2>a2)and(b2>c2) then a2:=b2
else if (c2>a2) then a2:=c2;
s:=(a1+a2)/2;
writeln(s:0:2);
end.