Задание:
Лементы массива упорядочить по возрастанию и переменной k присвоить порядковый номер элемента массива, равного числу y, или 0, елси такого элементанет.
Решение:
const m=100; var A: array [1… m] of integer; i,j,k,y: integer; beginrandomize; for i: =1 to m do begin A[i]: =random (100); end; y: =random (100); for i: =1 to m-1 do begin for j: =1 to m-i do begin if (A[j] > A[j+1]) then begin k: =A[j]; A[j]=A[j+1]; A[j+1]=k; end; end; end; writeln ("uporyadochennyj massiv"); for i: =1 to m do begin write (A[i]); write ("); end; writeln ("); k: =0; for i: =1 to m do begin if (A[i]=y) then k: =i; end; writeln ("k=", k); end.
Знаете другой ответ?