Вопрос по информатике:
Доброе утро, помогите, пожалуйста, начертить блок-схему по заданию: Задана одномерная числовая таблица из n элементов. Расставить элементы в таблице в порядке возрастания их значений.
Буду очень благодарна. Заранее спасибо
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.07.2016 20:12
- Информатика
- remove_red_eye 18448
- thumb_up 34
Ответы и объяснения 2
uses crt; const n:Integer; var a:array[1..20]ofinteger; // 20 это предустановлена в условии граниа не указанно можно 99 поставить i,j,k:integer; begin randomize; // это для генерации случайных чмсел у тебя могут быть предусановлены for i:=1tondo a[i]:=random(99); // ну собственно генерация чисел от 0 до 99( в блок схеме это не нужно) for i:=1ton-1do for j:=i+1to n do if a[i]>a[j]thenbegin k:=a[i]; a[i]:=a[j]; a[j]:=k; end; end. немного линни не пямые )) но разобратся сможешь
- 04.07.2016 02:18
- thumb_up 36
uses crt;
var a:array[1..100] of integer; i,j,n,tmp:integer;
begin
randomize;
write('n='); read(n);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tmp:=a[i];
a[i]:=a[j];
a[j]:=tmp;
end;
for j:=1 to n do
write(a[j],' ');
end.
- 05.07.2016 03:20
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.