Дано масив:

Визначте результат виконання фрагмента програми:
P := 1;
For i := 1 to 5 do If A[i]<=5 Then P := P*A[i];
Позначте одну правильну відповідь.
 

(Кількість балів 1.00)

• А

   18

• Б

   3

• В

   25

• Г

   15

 Дано масив:

Визначте результат виконання фрагмента програми:
S := 0;
For i := 1 to 5 do If i mod 2 =0 Then S := S+ A[i];
Позначте одну правильну відповідь.
 

(Кількість балів 1.00)

• А

   16

• Б

   14

• В

   17

• Г

   15

 Дано масив:

Визначте результат виконання фрагмента програми:
S := 0;
For i := 1 to 5 do If A[i] <6 Then S := S + A[i];
Позначте одну правильну відповідь.
 

(Кількість балів 1.00)

• А

   29

• Б

   8

• В

   17

• Г

   14

 Які задачі належать до задач на пошук у масиві елемента із заданою властивістю?
Позначте всі правильні відповіді.

(Кількість балів 1.50)

• А

  Визначення найбільшого елемента масиву

• Б

  Визначення кількості додатних елементів масиву

• В

  Подвоєння значень елементів масиву

• Г

  Знаходження суми додатних елементів масиву

Які задачі належать до задач на змінювання значень елементів масиву?
Позначте всі правильні відповіді.
 

(Кількість балів 1.50)

• А

  Визначення найбільшого елемента масиву

• Б

  Заміна від’ємних елементів масиву нулем

• В

  Подвоєння значень елементів масиву

• Г

  Знаходження суми додатних елементів масиву

 Встановіть відповідність між операторами (1–4) та їх призначенням (А–Г).

(Кількість балів 2.00)

• • 1

    For i := 1 to 10 do S := S + A[i]

  • 2

    For i := 1 to 10 do А[i] := Random(10)+5

  • 3

    var A: array[1..10] of Real

  • 4

    For i := 1 to 10 do А[i] := А[i]*2

• • А

    Подвоєння значень елементів масиву

  • Б

    Знаходження суми елементів масиву

  • В

    Оголошення масиву 10 дійсних чисел

  • Г

    Заповнення масиву випадковими числами в діапазоні [5; 14]

	А	Б	В	Г
1
2
3
4

 Встановіть відповідність між операторами (1–4) та їх призначенням (А–Г).

(Кількість балів 2.00)

• • 1

    For i := 1 to 10 do If A[i]<0 Then S := S + A[i]

  • 2

    К := 0; For i := 1 to 10 do If A[i]<0 Then К := К + 1

  • 3

    For i := 1 to 10 do If A[i]<0 Then ListBox1.Items.Add (IntToStr(A[i]))

  • 4

    For i := 1 to 10 do If A[i]<0 Then А[i]:= 0

• • А

    Знаходження суми від’ємних елементів масиву

  • Б

    Визначення кількості від’ємних елементів масиву

  • В

    Виведення від’ємних елементів масиву у поле списку ListBox1

  • Г

    Заміна нулями від’ємних елементів масиву

	А	Б	В	Г
1
2
3
4

Дано програму:
var a: array [1..8] оf Integer; M, k: Integer;
begin {…} M := a[1];
For k := 2 to 8 do If M < a[k] Then M := a[k]; {…}
Скільки разів буде виконаний оператор M := a[k] для масиву (3, 8, 7, 9, 4, 10, 2, 12)?

(Кількість балів 2.00)