Тема паскаль:
Даны три массива A,B,C, состоящие из 10 элементов.Присвоить массиву D среднее арифметическое каждого элемента этих трех массивов.(4 стр, 10 столбцов, 0 до 10).Пожалуйста помогите кто умеет решать.Времени мало осталось.Заранее спасибо.
Например:
A      B       C      D
1       2       3      (1+2+3)/3=2
2       3       4      (2+3+4)/3=3
3      4        5      (3+4+5)/3=4
4      5        6      (4+5+6)/3=5
5      6        7      (5+6+7)/3=6
6      7       8       (6+7+8)/3=7
7      8       9       (7+8+9)/3=8
8     9        10     (8+9+10)/3=9
9     10       11     (9+10+11)/3=10
10    11       12    (10+11+12)/3=11

program sr;const n=10;var a,b,c:array[1..n] of integer;    d:array[1..n] of real;    i,k:integer;   begin   randomize;for i:=1 to n do begin   a[i]:=random(15);   b[i]:=random(15);   c[i]:=random(15);   d[i]:=(a[i]+b[i]+c[i])/3   end;   for i:=1 to n do begin   write (a[i],' ',b[i],' ',c[i],' ',d[i]:2:2);   writeln;   end;   end.