В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
dimasikmll
dimasikmll
29.06.2021 04:38 •  Информатика

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

Показать ответ
Ответ:
sirzikova
sirzikova
02.10.2020 04:49
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота