program FindSumOfThreeLargestNumbers; const SIZE = 15; var numbers: array[1..SIZE] of Integer; i, j, temp, sum: Integer; begin // вводим 15 чисел с клавиатуры writeln('Введите 15 целых чисел:'); for i := 1 to SIZE do begin readln(numbers[i]); end; // сортируем массив по убыванию for i := 1 to SIZE - 1 do begin for j := i + 1 to SIZE do begin if numbers[i] < numbers[j] then begin temp := numbers[i]; numbers[i] := numbers[j]; numbers[j] := temp; end; end; end; // суммируем три самых больших числа sum := 0; for i := 1 to 3 do begin sum := sum + numbers[i]; end; // выводим результат writeln('Сумма трех самых больших чисел: ', sum); end.
Пример работы программы:
Введите 15 целых чисел: 10 5 3 8 12 15 20 25 30 35 40 45 50 55 60 Сумма трех самых больших чисел: 165
const
SIZE = 15;
var
numbers: array[1..SIZE] of Integer;
i, j, temp, sum: Integer;
begin
// вводим 15 чисел с клавиатуры
writeln('Введите 15 целых чисел:');
for i := 1 to SIZE do
begin
readln(numbers[i]);
end;
// сортируем массив по убыванию
for i := 1 to SIZE - 1 do
begin
for j := i + 1 to SIZE do
begin
if numbers[i] < numbers[j] then
begin
temp := numbers[i];
numbers[i] := numbers[j];
numbers[j] := temp;
end;
end;
end;
// суммируем три самых больших числа
sum := 0;
for i := 1 to 3 do
begin
sum := sum + numbers[i];
end;
// выводим результат
writeln('Сумма трех самых больших чисел: ', sum);
end.
Пример работы программы:
Введите 15 целых чисел:10
5
3
8
12
15
20
25
30
35
40
45
50
55
60
Сумма трех самых больших чисел: 165