1. Информатика
  2. Заполните массив случайными

Заполните массив случайными целыми числами из интервала -7 до 25

AndrewDremin AndrewDremin    3   06.04.2020 08:52    3

Ответы
sashashenko sashashenko  12.08.2020 11:17

program massiv4;

const

 n = 10;

var  

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

 i : integer;

begin

 randomize;

 for i:=1 to n do

   a[i] := random(-7,25);

 

 

 writeln('Массив: ');

 for i:=1 to n do

   write(a[i]:4);

 writeln;

 

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sereja2002g sereja2002g  19.06.2019 02:50
2. зачеркните числа, записанные не по правилам языка turbo pascal 1)3.14159 5)16. 9) 12.se.3 2)150 6)15.0е-04 10) 12е+5 3)0,005 7)2.345е2 11) л23ез 4).12345 8) 1.15е-3 12)...
Karinakotik200165 Karinakotik200165  19.06.2019 02:50
Перевести число 110110 из двоичной системы в восьмеричную, подробно...
24vwyda 24vwyda  04.05.2020 16:48
Определите и прономеруйте очередность создания автооглавления...
azarenkov409 azarenkov409  09.12.2020 14:00
Ануар решил приобрести смарт-часы. В интернет-магазине Белый ветер онпосмотрел информацию об имеющихсясмарт-часах, выписал иххарактеристики, построил табличнуюмодель. Оказалось,...
Mашka Mашka  04.09.2019 03:20
Переведите число 489 из десятичной системы счисления в двоичную....
shildebaev01 shildebaev01  26.02.2022 18:34
задачу решить, либо на C++, либо на python...
anastasia69smirnova anastasia69smirnova  26.02.2022 18:37
Подсчитай количество отрицательных чисел среди a,b,c. Алгоритм,не паскаль...
em130STM em130STM  11.09.2019 10:10
)запиши число 93 524 в развёрнутом виде: *10 + *10 + *10 + *10 + *10 в ответе укажи только десять пропущенных чисел в порядке возрастания, без каких-либо знаков препинания....
kholdingmedia kholdingmedia  09.06.2019 08:20
Напишите формулы и названия всех изомеров, соответствующих составу c4h8...
Владимир328 Владимир328  09.06.2019 08:20
Вдвумерном массиве размерностю nxm (n, m неболее 50), определить колличество строк, все элементы которых не более заданного числа x...

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