Тема паскаль: даны три массива a,b,c, состоящие из - вопрос №277408610 от rrxxmarta 31.08.2020 14:17

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

rrxxmarta · Answer

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....