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

222

224

Посмотреть ответы 2

Ответы на вопрос:

narek2006

Информатика

4,6(17 оценок)

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