Font size
WorksheetsX_Пон_мас_ариф
Total questions: 10
Worksheet time: 10mins
Задан массив констант А:
const a: array [1..5] of integer = (2, 15, 34, 87, 7);
Укажите значение элемента А[2].
2
7
15
34
87
Что выполнит следующий фрагмент программы?
for var i := 1 to n do
write(a[i], ' ');
Ввод элементов массива в строку
Вывод элементов массива в строку
Вывод элементов массива в столбец (по одному в строку)
Вывод элементов массива в столбец (по одному в строку)
Дан фрагмент программы:
·
write (’Введите количество элементов массива:’);
read(n);
for var i:= 1 to n do
…
Введите вместо многоточия строку без пробелов, которая вводит с клавиатуры элементы массива b.
(a)
Задан массив x[1..n]. Вписать оператор вместо многоточия без пробелов,
чтобы найти сумму всех элементов массива в переменной s?
s := 0;
for var k := 1 to n do
...
(a)
Задан массив x[1..n]. Введите условие вместо многоточия без пробелов, чтобы найти сумму неположительных элементов массива в переменной s?
s := 0;
for var k := 1 to n do
if . . .
then
s := s + x[k];
(a)
Задан массив x[1..n]. Выберите условие, которое поставить вместо многоточия, чтобы
найти сумму четных элементов массива в переменной s?
s := 0;
for var j:=1 to n do
if ...
then s := s + x[j];
s mod 2 = 0
s div 2 = 0
x[j] mod 2 = 1
x[j] mod 2 = 0
x[j] div 2 = 0
Задан массив x[1..n]. Выберите фрагмент программы, вычисляющий
произведение положительных элементов массива?
a := 0;
for var j:=1 to n do
if x[j]>0
then a := a + x[j];
a := 0;
for var j:=1 to n do
if x[j]>0
then a := a * x[j];
a := 1;
for var j:=1 to n do
if x[j]>0
then a := a * x[j];
a := 1;
for var j:=1 to n do
if x[j]>=0
then a := a * x[j];
Задан массив x[1..12]. Выберите фрагмент программы, который задает случайным образом
целочисленные элементы массива на промежутке от 10 до 15?
for var j:=1 to 12 do
x[j] := random(10, 15);
for var j:=10 to 15 do
x[j] := random(10, 15);
for var j:=1 to 15 do
x[j] := random(10, 15);
for var j:=10 to 15 do
x[j] := random(1, 12);
Задан массив констант:
x: array [1..7] of integer = (3, 8, 5, 2, 0, 7, 4);
Какой результат будет выведен на экран после выполнения фрагмента программы:
s := 0;
for var j:=3 to 5 do
s := s + x[j];
writeln(s);
29
7
12
5
8
По какой формуле будем заполнять массив b [1 4 9 16 25 36], чтобы получить именно эти значения?
Запишите оператор присваивания без пробелов, который надо вставить вместо многоточия в строке
for var i:=1 to 6 do
… ;
(a)
