Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера - Pascal ABC (14442)

Формулировка задачи:

Дано массив А [1..n9]. Найти среднее арифметическое каждого из столбцов, имеющих четные номера. вот есть программа может ее переделать под задачу?
program rree;
uses CRT;
const n=5;
var
a:array[1..n,1..9]of integer;
b,c,d,f,r,par1,par2,w:integer;
ser:real;
begin
for b:=1 to n do
begin
c:=0;
b:=b+c;
begin
writeln('ÅëåìåГ*ГІГЁ ïåðøîãî ñòîâáöÿ: ',b);
if b mod 2=0 then par1:=b else ;
end;
end;
begin
for r:=1 to 9 do
begin
f:=0;
r:=r+f;
begin
writeln('ÅëåìåГ*ГІГЁ äðóãîãî ñòîâáöÿ: ',r);
if r mod 2=0 then par2:=r else ;
end;
end;
begin
ser:=(par1+par2/n)/2;
writeln('ÑåðåäГ*Вє Г*ðèôìåòè÷Г*ГҐ 2-Гµ ñòîâïö³â: ',ser);
end;
end;
end.

Код к задаче: «Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера - Pascal ABC (14442)»

textual
const
    m = 9;
var
    a: Array[Byte, 1..m] Of Integer;
    i, j, n: Byte;
    sum: LongInt;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    Randomize;
    for i := 0 to n - 1 do
    begin
        for j := 1 to m do
        begin
            a[i, j] := Random(199) - 99;
            Write(a[i, j]:6);
        end;
        WriteLn;
    end;
    for j := 1 to m do
        Write('------');
    WriteLn;
    for j := 1 to m do
        if (Not Odd(j))
        then
        begin
            sum := 0;
            for i := 0 to n - 1 do
                Inc(sum, a[i, j]);
            Write((sum / n):6:1);
        end
        else
            Write('      ');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.538 из 5


СДЕЛАЙТЕ РЕПОСТ