1. Информатика
  2. Найти произведение элементов

Найти произведение элементов в массиве из 10 элементов заданных используя рандом от 1 до 100 Паскаль

karevmaxim4974owjcrc karevmaxim4974owjcrc    2   26.01.2021 14:19    9

Ответы
alfard alfard  26.01.2021 14:20

var

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

 i,s: integer;

 begin

   s:=1;

   for i:= 1 to 10 do

   begin

     a[i]:=random(1,100);

     s:=s*a[i];

   end;

   writeln(s);

 end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
милка328 милка328  20.08.2019 00:10
Винни-пух узнал что со времени последнего завтрака секунд.а сколько часов и минут с этого момента?...
mumina7 mumina7  11.08.2019 02:40
Решите ! (просто и понятно, без заумностей) составить на языке паскаль программу, которая запрашивает с клавиатуры n целых чисел и считает, сколько из них положительных,...
112811281128 112811281128  30.09.2019 15:50
2. дорожка в парке в парке разбили n клумб, каждая из которых имеет форму прямоугольника со сторонами a на b метров. расстояние между соседними клумбами – 1 метр. вокруг...
ванюшаплай ванюшаплай  30.09.2019 15:50
Выполните арифметические действия в двоичной с.с 1011101 (2)+11101 (2)=? 11110 (2)+11010 (2)=? 1011011011 (2)+1111000111 (2)=? 111 (2)×101 (2)=? 101101 (2)×11(2)=? 11011101(2)×1110(2)=?...
maksikus1 maksikus1  30.09.2019 15:50
Сколько времени потребуется для передачи файла объемом 2072 кбайта,если скорость передачи 4 мбит/с?...
guzel32211 guzel32211  30.09.2019 15:50
Переведите в двоичную система счисления : ваш возраст (14) , номер вашей школы (51), год рождения (2004) , кол-во учеников вашего класса (30)...
Владик003 Владик003  30.09.2019 15:50
Число 301011 может существовать в системах счисления с основами (2-3 система написать)...
BlueEyesCatОоак BlueEyesCatОоак  10.05.2021 09:58
1 ( ) Перечисли этапы решение задачи с компьютера. Выбери правильные ответы из предложенных вариантов. a) Пpогpаммиpование b) Редактирование c) Тестиpование и отладка d)...
MrLegolas MrLegolas  04.08.2019 16:10
13 , сделать на паскале трехзначное введенное число распечатать вертикально...
sedoidenis2000 sedoidenis2000  27.05.2019 16:20
Вова нарисовал в графическом редакторе paint несколько овалов. некоторые из них получились незамкнутыми. визуально холст он разбил на квадраты каждый из которых имеет своё...

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