Question

вывести на экран через запятую массив из 30 целых случайных чисел до 30 . Вычислить произведение чисел больше 15 и меньше 20

Answer 1

var
i,count:integer;
mas: array [1..30] of integer;
begin
count:=1;
randomize;
for i:=1 to 30 do begin
mas[i]:=random(0,30);
write(mas[i],',');
if (mas[i] > 15) and (mas[i] < 20) then
count:=count*mas[i];
end;
writeln('');
writeln('Произведение чисел > 15 и < 20 = ',count);
end.