Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

дан массив целых чисел состоящий из 10 элементов. найти сумму трех минимальных элементов этого массива метот пузыря

10-11 класс

LeraRammstein 07 апр. 2017 г., 6:00:42 (6 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Гелечкка
07 апр. 2017 г., 7:10:15 (6 лет назад)

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.

Ответить

Читайте также

Help!!! Дан массив целых чисел, состоящий из 10 элементов.Заполнить его с клавиатуры. Найти:

-Удвоенную сумму положительных элементов;

-Удалить все четные элементы массива.

Помогитее решить на Turbo Pascal,пожалуйстаа

Дан
массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:


сумму элементов, имеющих нечетное
значение;

Задача!


1.Дан массив целых чисел, состоящий из 15 элементов. Найти:
1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.


2. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.



Вы находитесь на странице вопроса "дан массив целых чисел состоящий из 10 элементов. найти сумму трех минимальных элементов этого массива метот пузыря", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.