Дано 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.
Извини, но на "желательно" не было времени, это было бы слишком долго.