X_Пон_мас_ариф

Задан массив констант А:

const a: array [1..5] of integer = (2, 15, 34, 87, 7);

Укажите значение элемента А[2].

 

• 2

• 7

• 15

• 34

• 87

1. Что выполнит следующий фрагмент программы?

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)