Бажаю успіхів!
Конструктор тестів
Бажаю успіхів!
Бажаю успіхів!
1
Дано масив:

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

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

Визначте результат виконання фрагмента програми:
S := 0;
For i := 1 to 5 do If A[i] <6 Then S := S + A[i];
4
Які задачі належать до задач на пошук у масиві елемента із заданою властивістю?
5
Які задачі належать до задач на змінювання значень елементів масиву?
6
Встановіть відповідність між операторами та їх призначенням.
For i := 1 to 10 do S := S + A[i]
Подвоєння значень елементів масиву
For i := 1 to 10 do А[i] := Random(10)+5
Оголошення масиву 10 дійсних чисел
var A: array[1..10] of Real
Заповнення масиву випадковими числами в діапазоні [5; 14]
For i := 1 to 10 do А[i] := А[i]*2
Знаходження суми елементів масиву
7
Встановіть відповідність між операторами та їх призначенням.
For i := 1 to 10 do If A[i]<0 Then S := S + A[i]
Знаходження суми від’ємних елементів масиву
К := 0; For i := 1 to 10 do If A[i]<0 Then К := К + 1
Заміна нулями від’ємних елементів масиву
For i := 1 to 10 do If A[i]<0 Then ListBox1.Items.Add (IntToStr(A[i]))
Визначення кількості від’ємних елементів масиву
For i := 1 to 10 do If A[i]<0 Then А[i]:= 0
Виведення від’ємних елементів масиву у поле списку ListBox1
8
Дано програму:
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)?
Дякую за роботу!
Рефлексія від 89 учнів
Сподобався:
Так: 62
Ні: 27
Зрозумілий:
Так: 62
Ні: 27
Потрібні роз'яснення:
Ні: 70
Так: 19