1. Информатика
  2. Информатика 10-11 класс, написать

Информатика 10-11 класс,
написать программу, которая находит произведение элементов массива натуральных чисел из 15 элементов, заданного случайным образом.

Zhansiya15 Zhansiya15    1   27.06.2019 10:27    1

Ответы
makhovak007 makhovak007  21.07.2020 22:57

const

 n=15;

var

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

 i,pr:integer;

begin

 randomize;  

 pr:=1;

 for i:=1 to n do

   begin

     a[i]:=random(101)-50;

     if a[i]>0 then pr:=pr*a[i];

     write(a[i]:4);

   end;

 writeln;

 write(pr);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
EnsteinMEGAMOZG EnsteinMEGAMOZG  02.12.2020 08:44
урок 8 тесты. От 4. до 7. 1, 2, 3 не надо только от 4 до 7​...
tk271287 tk271287  02.12.2020 08:44
В некотором царстве, в некотором государстве, в некотором НИИ создали компьютер «Магия-7», соблюдая все принципы Неймана-Лебедева. Память «Магии-7» разделили на сегменты,...
gremorixiii gremorixiii  15.04.2019 17:39
Цикл с параметром (for) 1. составить алгоритм табулирования функции y = 1 на отрезке [a; b]. 2x значения a, b могут изменяться. 2. составить алгоритм табулирования функции...
alesa6002 alesa6002  15.04.2019 17:39
Два текста содержат одинаковое количество символов. первый текст составлен из символов алфавита мощностью 16, а второй текст – из символов алфавита мощностью 256. во сколько...
epakurtdinova epakurtdinova  15.04.2019 17:38
Запишите только дано. в начале там еще10 кб.​...
eugenetroyan eugenetroyan  15.04.2019 17:37
Разрешение экрана монитора – 1024 х 2048 точек, глубина цвета – 16 бит. каков необходимый объем видеопамяти (в мб) для данного графического режима?...
angelinashushina angelinashushina  15.04.2019 17:35
Вначале там еще 10 кб. запишите только дано много ​...
McShram1111 McShram1111  15.04.2019 17:33
Всем доброго времени суток.в вопросе приложен документ,скачайте.у меня такой вопрос: как в таблице оставить тире,а в таблице легенды их убрать?...
Tata123N Tata123N  15.04.2019 17:33
Укр: запишіть відмінності між кількома різними образами одного виконавця і кількома різними виконавцями. рус: запишите различия между несколькими различными образами одного...
konoplya88 konoplya88  20.10.2020 05:51
В коробке лежали 32 фломастера. Все фломастеры разных цветов. Какое количество информации содержит сообщение о том, что из нее достали синий фломастер?...

Популярные вопросы