дано натуральное число n, действительные числа a1, a2, ..., a^. вычислить: Min (-a, a2,-a3, ..., (-1) ^a^)

Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.

5. Нахождение минимального числа из введенных. Program MIN; Var A, I : Integer; Min : Integer; Begin Min:=32767; For I:=1 to 10 do Begin Write ('Vvedi chislo ') ; Readln (A) ; If A < Min then Min:=A; end; Writeln ('MIN=', Min) ; Readln; end.

Вот условие: дано натуральные число н и действительные числа а1, а2 ... ан. Найти минимальное и максимальное число.

Найдите значение Z, определив использовав функцию Min. Z=min (3, x) + min (x, y) - min (y, 5)

Program z6_2; uses crt; const n=6; var a:array[1 ... 6]of real; i:integer; begin clrscr; Writeln ('введите элемент массива') ; for i:=1 to 6 do readln (a[i]) ; if min min:=a[i]; writeln ('min=', min:7:3) ; Repeat until keypressed; end.