Question

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

Answer 1

Ответ:

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.

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

Answer 2

Да, забыл сверху var поставить. Справишься?