Const n=5; var i: integer; b: real; a: array [1..n] of integer; {если его элементы целые числа (про тип чисел ничего не сказано в задании)} begin for i:=1 to n do read(a[i]); if ((a[1]+a[3]) mod 5 = 0) and (a[5] mod 10 = 3) then begin b:=0; for i:=1 to 5 do b:=b+sqr(a[i]); end else begin b:=1; for i:=1 to 5 do b:=b*sqrt(a[i]); end; writeln(b:1:2); {округление до сотых} if (a[1]+a[2]+a[3])>15 then writeln('да, сумма 1, 2 и 3 чисел больше 15') else writeln('нет, сумма 1, 2 и 3 чисел меньше или равна 15'); if ((a[4]+a[5]) div 10>0) and ((a[4]+a[5]) div 100<0) then writeln('да, сумма 4 и 5 чисел - двузначное число') else writeln('нет, сумма 4 и 5 чисел - не двузначное число'); readln; {чтобы была задержка до нажатия кнопки при выполнении программы и мы могли бы увидеть ответ} end. Решить можно и без использования массива.
Var a1,a2,a3,a4,a5,max: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1>a2) then max:= a1else max:=a2; if (a2>a3) then max:=a2else max:=a3; if (a3>a4) then max:=a3else max:=a4; if (a4>a5) then max:=a4else max:=a5; end; writeln (max); end. Аналогично с минимальным числом. var a1,a2,a3,a4,a5,min: integer; begin writeln ('Введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1<a2) then min:= a1else min:=a2; if (a2<a3) then min:=a2else min:=a3; if (a3<a4) then min:=a3else min:=a4; if (a4<a5) then min:=a4else min:=a5; end; writeln (min); end. Можно так же решить с массива, если нужно пишите.
(1<5)+((1>5)*1>15)=1
единицу дает условие 1<5
при любых других значениях х (5,10,15) каждое из двух условий даст 0