var a,b,c: array[1..100] of integer;
i,n: integer;
begin
n: =1;
for i: =1 to 25 do
begin
a[i]: =random(20)+100;
write(a[i],' ');
if (i > 14) and (i < 21) then n: =n*a[i];
end;
writeln;
write('произведение=',n); writeln;
end.
Поделитесь своими знаниями, ответьте на вопрос: