• составьте программу котрая заполняет массив в [1..30]случайтыми целыми числами в диапозоне от 3 до 5 затем вычисляет произведения нечетных элементов

Ответы 1

  • program zadacha;vara: array[1..30] of byte;i,pr:integer;beginfor i:=1 to 30 do begin a[i]:=3+random(5);write(a[i]:4); end;pr:=1;writeln();for i:=1 to 30 do beginif a[i] mod 2<>0 thenwrite(a[i]:4);pr:=pr*a[i];end;writeln();writeln('pr=',pr);end.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years