Question

На языке ПАСКАЛЬ сделать:
Найти квадрат суммы максимального и минимального из 4 чисел.

Answer 1

.//Pascal ABC.NET

var
i,max,min,res:integer;
a: array [1..4] of integer;
begin
writeln('Введите числа');
for i:=1 to 4 do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to 4 do
begin
if max<a[i] then begin
max:=a[i];
end;
if min>a[i] then begin
min:=a[i];
end;
end;
res:=sqr(max+min);
writeln('max=',max,' min=',min);
writeln('Квадрат суммы min и msx = ', res);
end.