Задан линейный массив с из n элементов. подсчитайте произведение элементов массива, которые больше 20, но меньше 30. (составьте блок-схему и программу)
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 proizv:=proizv*c[i]; For i:=1 to n do write(c[i],' '); write('произведение = ',proizv); end.
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
proizv:=proizv*c[i];
For i:=1 to n do
write(c[i],' ');
write('произведение = ',proizv);
end.
блок-схему нет возможности скинуть, извини
написал на языке паскаля