Вопрос по информатике:
Program massive2;
var dannye:array [1..n] of integer;
j,k:integer;
writeln('данные по продаже компьютеров');
begin
for k:=1 to n-1 do;
for j:=k+1 to n do;
if A[k]>A[j]then
begin
p:=A[k];
A[k]:=A[j];
A[j]:=P;
end;
writeln('Массив,отсортированные по возрастанию');
for k:=1 to n do write ('A[',K,']:',A[k],');
writeln
end.
условие - Известны данные по продаже компьютеров в течение недели. Расположить эти данные в порядке возрастания.
программа написана ,но ошибки сделала помогите их исправить пожалуйста с объяснением
- 06.06.2018 03:11
- Информатика
- remove_red_eye 17043
- thumb_up 38
Ответы и объяснения 1
const n=7;
var a:array [1..n] of integer;
p,i,j,k:integer;
begin
Randomize;
writeln('данные по продаже компьютеров');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
for k:=1 to n-1 do
for j:=k+1 to n do
if a[k]>a[j]then
begin
p:=a[k]; a[k]:=a[j]; a[j]:=P;
end;
writeln('Массив, отсортированный по возрастанию');
for i:=1 to n do write ('A[',i,']=',a[i],' ');
writeln;
end.
Пример:
данные по продаже компьютеров
14 2 13 9 10 12 9
Массив, отсортированный по возрастанию
A[1]=2 A[2]=9 A[3]=9 A[4]=10 A[5]=12 A[6]=13 A[7]=14
- 07.06.2018 14:25
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.