Дано 3 массива A,B,C, состоящие из 10 элементов. Присвоить массиву D среднее арифметическое каждого элемента этих 3 массивов. Массивы A,B,C вводятся вручную.
Так же желательно когда допустим я ввел не верные данные то я должен ввести их заново не перезапуская программу. Это вроде через repeat и until делается.

Ответ:

Begin

For i:=1 to 10 do

Read(a[i]);

For i:=1 to 10 do

Read(b[i]);

For i:=1 to 10 do

Read(c[i]);

For i:=1 to 10 do

d[i]:=(a[i]+b[i]+c[i])/3;

End.

Извини, но на "желательно" не было времени, это было бы слишком долго.