Тема паскаль:Даны три массива A,B,C, состоящие из 10 элементов.Присвоить массиву D...

Question

Тема паскаль:
Даны три массива 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

Answer 1

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.

Comments

каждый раз числа будут разные (генератор случайных чисел)

---

8-массив а, 7-массив б, 13-массив с, 9.33 - массив д -среднее значение 8,7 и 13

---

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]=',a[i],' ','b[i]=',b[i],' ','c[i]=',c[i],' ','d[i]=',d[i]:2:2);
writeln;
end;
end.

---

вот второй вариант с более красивым выводом

---

d[i]:2:2) - это обозначает, что после запятой 2 числа

---

значит и так и так будет правильно,да.

---

да

---

спасибо вам большое.Вы информатику хорошо знаете,да.

---

да, знаю немного

---

студентка или в школе учитесь