• дан массив из 30-ти чисел. Найти произведение всех чисел, которые больше заданного числа Р.
    (Паскаль)

Ответы 1

  • Program pr1;

    uses crt;

    var  

      n:byte; // Размерность массива

      i:byte; // Счетчик массива

      a:array[1..30] of real; // Массива чисел

      P:real; // Произведение чисел

    Begin

      clrscr;

      write('Введите размерность массива: ');

      readln(n);

      writeln('Введите ',n,' элементов');

    // Блок ввода

      for i:=1 to n do

         readln(a[i]);

    // Блок вывода

      writeln('Исходный массив');

      for i:=1 to n do

         write(a[i]:6:1,' ');

         writeln;

         readln;

    // Блок инициализации

      P:=1;

      for i:=1 to n do

         if(a[i]>P) then

            P:=P*a[i];    

      readln;

      writeln('P= ',P);

    End.

    Возможно я не так понял задание, но вот

    • Автор:

      anaeqek
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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