Я готуюсь до курсу інформатики. Алгоритмізація та програмування

9

13

Друкується тільки п’ять останніх елементів масиву, тому що змінна циклу змінюється від 1 до 5, а індекс елементів масиву від 6 (1+5) до 10 (5+5)

5

i:=l;

While A[i]<0 do

Begin

i:=i+l;

Writeln(A[i])

End;

-5

-3

-1

Друкуються тільки від’ємні елементи масиву, тому що умова виходу з циклу така, що коли А[і]<=0, він припинить свою роботу.

7

i:=l;

repeat

i:=i+l;

Writeln(A[i])

until A[i]>=0;

-3

-1

1

Елементи масиву друкуються до першого додатного значення зліва направо. 1-й елемент масиву не друкується тому, що в тілі циклу спочатку змінюється індекс, і виконується друк.

ЗАДАЧА № 311 (2)

Умова: Дано одновимірний масив цілих чисел А[і], де і = 1, 2, ...n. Вивести елементи масиву з парними індексами.

Разв’язання: В даному випадку незручно користуватися для виведення на екран елементів з парними індексами циклом з параметром, тому що він дозволяє зміну індексу тільки на одиницю. Тому пропонуємо скористатися циклом з перед — або післяумовою.

Program Example_311_2;

Uses crt;

Var N,і:word; {N — кількість елементів масиву, і — змінна циклу)

A:array[1..100] of longint; {A — заданий масив}

Begin

Clrscr;

Write(‘Введіть кількість елементів масиву (<100):’);

Readln(N);

For i:=1 to N do

Begin

А[і] :=random(300) ; {Заповнення масиву випадковими числами}

{Виведення масиву на ехран для контролю правильності роботи програми}

Write(A[i]:5);

End;

Writeln; {Переведення курсору на наступний рядок}

і:=2;

while i<=N do

Begin

Write(A[i]:5);