Информация, представленная с использованием специальны символов и букв языков разных стран.

262

322

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

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

софа07022007

Информатика

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

Program z1; var a: array [1..1000] of integer; b: array [1..1000] of integer; i,j,n,min,m: integer; begin write('введите размер массива - '); readln(n); randomize; for i: =1 to n do begin a[i]: =random(50)-0; write (a[i],' '); end; j: =1; for i: =2 to n-1 do begin if ((a[i]> a[i-1]) and (a[i]> a[i+1])) then begin b[j]: =a[i]; j: =j+1; end; end; m: =j-1; writeln; for j: =1 to m do write (b[j],' '); min: =b[1]; for j: =2 to m do if (b[j]< min) then min: =b[j]; writeln; writeln(min); end.