ainud

24.07.2021

написать программу в Паскале Задание: Дан одномерный массив. Необходимо ввести и вывести одномерный массив. Кол-во элементов массива: 4 ввода: заполнение случайными числами от 0 до 10 вывода: в столбец надо,

Информатика

Ответить

Ответы

keldastrand

24.07.2021

program z1;

var a:array [1..4] of integer;

i:integer;

begin

randomize;

for i:=1 to 4 do a[i]:=random(11);

for i:=1 to 4 do writeln(a[i])

end.

Объяснение:

random (n) - выдаёт случайные целые числа из диапазона [0,n)

writeln- вывод следующей строки с новой строки

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

написать программу в Паскале Задание: Дан одномерный массив. Необходимо ввести и вывести одномерный массив. Кол-во элементов массива: 4 ввода: заполнение случайными числами от 0 до 10 вывода: в столбец надо,

▲

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

со 2 заданием Моя биография

Какие значение может принимать целая переменная Y, если программе записано:Y:=10＋random(5)?

Сколько секунд потребуется модему, передающему сообщения со скоростью 73728бит/с, чтобы передать сообщение объемом 675Кбайт?

Составьте программу которая найдет три последние цифры произведения 1*2**18

Составить ребус со словами информация, кодирование, хранение, передача, обработка.

Расположите величины в порядке возрастания: 1010 байтов, 2 байта, 1кбайт, 20 битов, 10 битов.

Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново? program kl; var x: byte; c, d, x1: real; begin repeat writeln(' введи c и d'); readln(c, d); if (c writeln('...

Информация, которую человек получает с органов осязания - это

4) определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n : = 4 to 10 do s : = s + 15; write(s); end.

РЕБЯТА ОЧЕНЬ заранее большоеИнформатика

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

со 2 заданием Моя биография

Какие значение может принимать целая переменная Y, если программе записано:Y:=10＋random(5)?​

Сколь­ко се­кунд по­тре­бу­ет­ся мо­де­му, пе­ре­да­ю­ще­му со­об­ще­ния со скоростью 73728бит/с, чтобы пе­ре­дать со­об­ще­ние объ­е­мом 675Кбайт?

Составьте программу которая найдет три последние цифры произведения 1*2**18

Составить ребус со словами информация, кодирование, хранение, передача, обработка.

Расположите величины в порядке возрастания: 1010 байтов, 2 байта, 1кбайт, 20 битов, 10 битов.

Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново? program kl; var x: byte; c, d, x1: real; begin repeat writeln(' введи c и d'); readln(c, d); if (c writeln('...

Информация, которую человек получает с органов осязания - это

4) определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n : = 4 to 10 do s : = s + 15; write(s); end.

РЕБЯТА ОЧЕНЬ заранее большоеИнформатика​

Какие значение может принимать целая переменная Y, если программе записано:Y:=10＋random(5)?

Сколько секунд потребуется модему, передающему сообщения со скоростью 73728бит/с, чтобы передать сообщение объемом 675Кбайт?

РЕБЯТА ОЧЕНЬ заранее большоеИнформатика