Сумма двух наибольших и сумма двух наименьших в Pascal Написать решение
Сумма двух наибольших и сумма двух наименьших в Pascal
Написать решение
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
Const
n=5;
Var
max1,max2,min1,min2,i:integer;
ar:array[1..n] of integer;
begin
max1:=integer.MinValue;
max2:=integer.MinValue;
min1:=integer.MaxValue;
min2:=integer.MaxValue;
for i:=1 to n do
begin
readln(ar[i]);
if (ar[i]max2) then max2:=ar[i] else
if ar[i]>max1 then
begin
max2:=max1;
max1:=ar[i];
end;
if (ar[i]>min1) and (ar[i]
Гость// PascalABC.NET 3.1, сборка 1255 от 20.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
Writeln('Сумма двух максимумов равна ',
a.SortedDescending.Take(2).Sum);
Writeln('Сумма двух минимумов равна ',
a.Sorted.Take(2).Sum);
end.
Тестовое решение
n= 15
14 6 2 18 93 74 2 23 69 83 35 45 9 65 32
Сумма двух максимумов равна 176
Сумма двух минимумов равна 4
Не нашли ответ?
Похожие вопросы