Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если первое, второе и пятое числа отрицательны, то выведите их произведение. если третье и четвёртое числабольше100, то выведите среднее арифметическое всех пяти чисел. если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. иначе, выведите третье и пятое числа, увеличив их в два раза.

var a1,a2,a3,a4,a5: real; u1,u2: boolean; beginwriteln('введите 5 вещественных чисел'); readln(a1,a2,a3,a4,a5); u1: =(a1< 0) and (a2< 0) and (a5< 0); u2: =(a3> 100) and (a4> 100); if u1 and u2 then writeln(a1,' ',a2,' ',a3,' ',a4,' ',a5)elseif u1 then writeln('a1*a2*a5=',a1*a2*a5)elseif u2 then writeln('sr.arifm=',(a1+a2+a3+a4+a5)/5)else writeln(2*a3,' ',2*a5); end.

Pascalabc.net type    mass = array [1..4] of integer; var    a : mass;     i : integer;   function min(c : mass) : integer;     var    i,minim : integer;   begin    minim : = c[1];     for i : = 2 to 4 do    if c[i] < minim then      minim : = c[i];   result : = minim;       end;     begin    for i : = 1 to 4 do    readln (a[i]);   writeln ('min = ',min(a));   end.как параметр я использовал массив из четырех элементов. можно использовать просто переменные и через if все прописать

Var x,y,z: real; sign: char; begin while true do begin write('sign: '); readln(sign); if sign = '0' then break; if sign in ['+','-','*','/'] then begin write('x='); readln(x); write('y='); readln(y); case sign of '+': begin z : = x + y; writeln(z: 5: 2) end; '-': begin z : = x - y; writeln(z: 5: 2); end; '*': begin z : = x * y; writeln(z: 5: 2); end; '/': if y < > 0 then begin z : = x / y; writeln(z: 5: 2) end else writeln('division by zero! '); end; end else writeln('bad sign! ') end; end.