В программе используется целочисленный одномерный массив А с индексами от 0 до 5. for i:=0 to 5 do begin if (i>2) then A[i]:=i*2; else A[i]:=i*3; end Введите последовательность чисел, которая будет сохранена в массиве в результате выполнения программы

Переменная I в цикле поочередно примет значения: 0, 1, 2, 3, 4, 5.

При значениях 0, 1, 2 (i < 3) элементы массива будут равны i * 3:

a[0] = 0 * 3 = 0;

a[1] = 1 * 3 = 3;

a[2] = 2 * 3 = 6;

При значения 3, 4, 5 (i > = 3) элементы массива будут равны i * 2:

a[3] = 3 * 2 = 6;

a[4] = 4 * 2 = 8;

a[5] = 5 * 2 = 10;

Ответ: Элементы массива a[0] = 0; a[1] = 3; a[2] = 6; a[3] = 6; a[4] = 8; a[5] = 10.

Программа для вывода элементов массива:

program arr;

var a: array [0 ... 5] of integer;

begin

for i:integer:=0 to 5 do begin

if (i>2) then A[i]:=i*2

else A[i]:=i*3;

write (A[i]:3)

end

end.

(Перед else точка с запятой не нужна).