Задать вопрос
29 марта, 12:32

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. Случайно из определенного интервала

+3
Ответы (2)
  1. 29 марта, 12:58
    0
    1) c 2) b 3) d (тут выбирается рандомом в диапазоне от 0 до i)
  2. 29 марта, 14:20
    0
    1) С клавиатуры.

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

    3) Случайно из интервала от 1 до i.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1) Данное заполнение массива For i : = 1 to n do readln (a[ i ]) ; For i : = 1 to n do writeln (a[ i ]) ; производится Выберите один ответ: ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Как сделать теперь без массива (паскале) ? 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)
Что я неправильно написал? 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)
Почему программа не работает (Pascal) Program abc; Var A, B: array [1 ... 5] of integer; i:integer; begin For i : = 1 to 5 do begin writeln ('введите A') ; readln (A[i]) ; writeln ('Введите B') ; readln (B[i]) ; writeln (A[1]+B[1]) ;
Ответы (1)
Найдите логически неверную последовательность команд: 1) Writeln (S) ; A:=A*2; readln (A, B) ; S:=A+B; 2) readln (A, B) ; A:=A*2; S:=A+B; Writeln (S) ; 3) readln (A, B) ; S:=A+B; A:=A*2; Writeln (S) ; 4) A:=3; B:=5; A:=A*2; S:=A+B; Writeln (A) ;
Ответы (1)