Укажите какие из приведенных описаний могут быть именами переменных

а) 5x

б) x5

в) x*5

г) result

д) мин

е) min

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.

Найдите значение 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.

Дана программа: Program Primer; Var N, result : real; Begin Writeln ('Введите значения переменной N') ; Write ('N=') ; Readln (N) ; Result : = sqr ((1+N) * 9) ; Writeln ('sqr ((1+N) * 9) ', result:8:0) ; Readln; End.