дан массив целых чисел состоящий из 10 элементов. найти сумму трех минимальных элементов этого массива метот пузыря
10-11 класс
|
var a:array [1..10] of Integer; i,temp:Integer; f:Boolean;
begin
Randomize;
for i:=1 to 10 do
a[i]:=Random(100);
for i:=1 to 10 do
write(a[i]:3);
Writeln;
repeat
f:=False;
for i:=1 to 9 do
begin
if a[i]>a[i+1] then
begin
f:=True;
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
end;
until not f;
for i:=1 to 10 do
write(a[i]:3);
temp:=0;
for i:=1 to 3 do
temp:=temp+a[i];
Writeln;
Writeln(temp);
Readln;
end.
Другие вопросы из категории
1, 11, 21, 1211, 111221, 312211, 13112221, ... ( 2 продолжения )
Читайте также
-Удвоенную сумму положительных элементов;
-Удалить все четные элементы массива.
их индекса. Помогите пожалуйста,срочно надо!!!((
Дан
массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
−
сумму элементов, имеющих нечетное
значение;
массива,значение которых больше среднего арифметического всех его элементов
1.Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
2. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.