Задан линейный массив С из N элементов. Подсчитайте произведение элементов массива,...

Question

Задан линейный массив С из N элементов. Подсчитайте произведение элементов массива, которые больше 20, но меньше 30. (Составьте блок-схему и программу)

Answer 1

var c:array[1..100] of integer;
n,i,proizv:integer;
begin
write('введите кол-во элементов массива');
read(n);
For i:=1 to n do
c[i]:=random(50);
proizv:=1;
For i:=1 to n do
if c[i]>20 then
if c[i]<30 then<br> proizv:=proizv*c[i];
For i:=1 to n do
write(c[i],' ');
write('произведение = ',proizv);
end.

 

блок-схему нет возможности скинуть, извини

 

написал на языке паскаля