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. условие - известны данные по продаже компьютеров в течение недели. расположить эти данные в порядке возрастания. программа написана ,но ошибки сделала их исправить с объяснением

aigul245 aigul245    3   20.09.2019 21:10    0

Ответы
alyasen2006 alyasen2006  16.08.2020 19:32
Program massive2;
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика