Одномерный массив на языке паскаль. 1 : определить,является ли данный массив по возрастанию(да,нет). 2 : написать 2 способа сортировки массива по возрастанию.

103

399

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

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

daniil359

Информатика

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

Var a=array[1..100]of integer; i,n: integer; f: byte; begin f: =0; writeln('vvedite kol-vo elementov'); read(n); writeln('vvedite elementy'); for i: =1 to n do read(a[i]); for i: =1 to n-1 do if (a[i]> a[i+1]) then f: =1; if (f=0) then writeln('da') else writeln('net'); end. {кусок сортировки. пузырьком. } for j: =1 to n do begin for i: =1 to n do begin if (a[j]< a[i]) then begin temp: =a[j]; a[j]: =a[i]; a[i]: =temp; end; end; end;