Задать вопрос
17 января, 10:29

1) Данное заполнение массива

For i : = 1 to n do readln (a[ i ]) ;

For i : = 1 to n do writeln (a[ i ]) ;

производится

Выберите один ответ:

a. Через генератор случайных чисел

b. По формуле

c. С клавиатуры

d. Случайно из определенного интервала

2) Данное заполнение массива

For i : = 1 to n do а [ i ]: = i * 3;

производится

Выберите один ответ:

a. С клавиатуры

b. Случайно из определенного интервала

c. Через генератор случайных чисел

d. По формуле

3) Данное заполнение массива

Randomize;

For i : = 1 to n do begin

а [ i ]: = random (i) ;

производится

Выберите один ответ:

a. С клавиатуры

b. Через генератор случайных чисел

c. По формуле

d. Случайно из определенного интервала

+5
Ответы (2)
  1. 17 января, 12:44
    0
    1) С клавиатуры.

    2) По формуле.

    3) Случайно из интервала от 1 до i.
  2. 17 января, 14:08
    0
    1) c 2) b 3) d (тут выбирается рандомом в диапазоне от 0 до i)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1) Данное заполнение массива For i : = 1 to n do readln (a[ i ]) ; For i : = 1 to n do writeln (a[ i ]) ; производится Выберите один ответ: ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)