Блок схема приведена в приложенном файле.
Результатом работы программы является вывод на экран:
-если x<= y И y<=z, то выводим значения произведений 2*x, 2*y, 2*z
-иначе выводим модули значений переменых x, y, z.
1) Принтер
2) Сканер
3) МонитоР
4) Озу - Оперативно запоминающее устройство
5) ПЗУ - Постоянно запоминающее устройство
var
s,p:int64;
i,kol,m:integer;
a:array of integer;
begin
readln(kol);
s:=0;
p:=0;
m:=0;
setlength(a,kol);
for i := 1 to kol do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
m:=s div kol;
writeln('Сумма ',s);
writeln('Произведение',p);
writeln('Среднее значение',m);
end.
<span>Вложенный оператор применяется в тех случаях, когда для выполнения действия требуется соблюдение сразу нескольких условий, которые не могут быть указаны в одном условном выражении</span>
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.