Составить программу вычисления произведения не нулевых элементов массива (а) вещественных чисел [1..5]

2

var 

  a: array [1..5] of real; //массив из пяти вещественных элементов

  i: integer; //переменная для цикла

  s: real; //значение произведения

begin

  s: = 1;

  for i: = 1 to 5 do //вводим элементы массива

  begin

    writeln('введите ', i, ' элемент массива');

    readln(a[i]);

    if a[i] < > 0 then s: = s * a[i]; {если элемент массива не равен 0, то умножаем значение произведения на элемент массива}

  end;

  writeln('произведение не нулевых элементов массива:   ', s); {выводим значение произведения}

end.

|нарядив ёлку|, (1) побежали× к бабушке, (2)

|сидевшей в другой комнате|.

|нарядив ёлку| - деепричастный оборот

|сидевшей в другой комнате| - причастный оборот

спортсмен, (3) |выполнив норму мастера|, (4) вошёл× в состав сборной страны.

|выполнив норму мастера| - деепричастный оборот

ответ: 2. 1, 3, 4

1 Program work1;

2 uses crt;  

3 var x,y,z: real;  

4 begin  

5 clrscr ;

6 writeln('введите число x');  

7 readln(x);  

8 writeln('введите  число y');  

9 readln(y);  

10 writeln('введите число z');  

11 readln(z);  

12 if (x<=3) and (x>=1) then writeln ('x-принадлежит интервалу') else writeln ('x не принадлежит и интервалу');

13 if (y<=3) and (y>=1) then writeln ('y- принадлежит интервалу') else writeln ('y не принадлежит и интервалу');

14 if (z<=3) and (z>=1) then writeln ('z-принадлежит интервалу') else writeln  ('z не принадлежит и интервалу');  

15 readln;

Объяснение:

https://ru-static.z-dn.net/files/dd2/796d7c2d2af92262840bd7209eb7f670.bmp картинка