Задать вопрос Регистрация
Помочь другим

  • в паскале Сформировать массив из положительных элементов и найти их произведение

Ответы 1

  • uses crt;var a:array[1..10] of integer;i,s:integer;beginwriteln('Исходный массив:');for i:=1 to 10 do begin a[i]:=random(10-1+1)+1; write(a[i]:4); end; s:=1;for i:=1 to 10 do begin s:=s*a[i]; end; writeln;writeln('Произведение элементов: ',s);end.

     

    В массиве 10 элементов, которые заданы случайно в пределах от 1 до 10. 

    • Автор:

      gunner98
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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