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

Question

Информатика

Калерия

29 июня, 04:06

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

+1

Ответы (1)

Знаете ответ на вопрос?

Венедикта · Answer 1

var a1, a2, a3, a4, a5:real;

u1, u2:boolean;

begin

writeln ('Введите 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)

else

if u1 then writeln ('a1*a2*a5=', a1*a2*a5)

else

if u2 then writeln ('sr. arifm=', (a1+a2+a3+a4+a5) / 5)

else writeln (2*a3,' ',2*a5) ;

end.