Регистрация
анюта606
27.01.2021 01:04
Информатика
Есть ответ 👍

Составить программу к следующей . задан случайным образом одномерный массив из n действительных чисел в диапазоне от -10 до 50. подсчитать сколько в нем элементов больше (10).

213
371
Посмотреть ответы 2

Ответы на вопрос:

Istominyura
Istominyura
4,5(39 оценок)

код будет работать в pascal abc

(в остальных программах нужно поменять функцию рандома чисел)

program p1;

var  

  //пусть массив будет состоять из 50 элементов

  n: array[1..50] of integer;

  i, j, s: integer;

begin

   

  //создание массива случайный чисел от -10 до 50

  for i: = 1 to 50 do

    begin

        n[i]: = random(-10, 50);

        writeln(n[i]);

    end;

     

      //подсчет  

      for j: = 1 to 50 do

        begin

          if n[j] > 10 then

            begin

              s: =s+1;

            end;

        end;

     

    writeln('элементов больше 10: ', s);

end.

тамила52
тамила52
4,7(16 оценок)

в окне кода

это правильный ответ

Популярно: Информатика