Заполонить массив у 8 элементов следующим образом: первые четыре элемента - произвольные числа в диапазоне [0,10], четыре следующих элемента дублируют предыдущие.
Помогите пожалуйста кто разбирается

Ответ:

program z1;

var i:integer;

a:array [1..8] of integer;

begin

randomize;

for i:= 1 to 8 do

begin

if i<5 then a[i]:=random(11)

else a[i]:=a[i - 4];

write(a[i],'  ')

end

end.

Объяснение:

Цикл:

если i меньше 5 (первые 4 элемента), то значение элементов задаётся через random

иначе (последние 4 элемента) значение элемента равно значению элемента с номером i - 4

вывод элементов на экран