Дан одномерный массив. найти функцию максимум+минимум. последовательный переход с заданного по последний элемент. (максимум) с первого по заданный пользователем (минимум) написать программу на php/pascal , люди добрые.

283

317

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

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

ALPELGOLD

Информатика

4,5(14 оценок)

Var n,m: integer; b: boolean; function fminmax(k: integer; d: boolean): integer; var a: array[1..30] of integer; j,max,min: integer; begin for j: = 1 to 30 do begin a[j]: = random(100)-50; write(a[j]: 4); end; max: = -100; min: =100; if b = true then for j: = 1 to k do begin if max < a[j] then max : = a[j]; fminmax: =max; end else for j: = n to 30 do begin if min > a[j] then min : = a[j]; fminmax: =min; end; end; begin write ('введите число < 25'); read(n); write ('определять max(true -да, false- нет)'); read(b); m: = fminmax(n,b); writeln; if b = true then write('max = ',m) else write('min = ',m); end.