Question

Составить блок схему и написать программу на турбо Паскале . Вычеслить s=1/2[max(a,b,c)+min(a,b,c)] 

1) a=8; b=3; c=-2;

2)a=1; b=4; c=16;

Answer 1

1)
var s,a,b,c:real;
begin
a:=8; b:=3; c:=-2;
s:= 1/2[max(a,b,c)+min(a,b,c)];
end.
2)
var s,a,b,c:real;
begin
a:=1; b:=4; c:=16;
s:= 1/2[max(a,b,c)+min(a,b,c)];
end.

Answer 2

s:= 1/2[max(a,b,c)+min(a,b,c)]; но эту строчку ты не правильно написал! вроде бы нету стандартной функции в паскале max и min! их нужно самому прописывать! либо через ветвление, как сделать, как я!

Answer 3

Нас учили что есть, но записал её, да, неправильно. Забывать уже начал) Max(a,b,c: integer): integer; И Min(a,b,c: integer): integer;

Answer 4

1/2[max(a,b,c)+min(a,b,c)] задание поставлено именно так