Найти среднее арифметическое в каждой строке массиво а (1:3, 1:2) исполнить алгоритм для массиво

2 5 8

6 7 5

Я напишу на паскале;

program srednie_v_masive; var a:array[1 ... 3] of longint; s, k, i, n:longint; begin readln (n) ; while not eof do begin for i:=1 to n do begin read (a[i]) ; s:=s+a[i]; end; writeln (s/n) ; end; end.

n - ето количество чисел в масиве, а - ето масив значений, s - cума чисел,

и выводим среднее в масиве значение ето сума поделеная на их количесво, тобеш n