Нужна прога по массивам и строкам

[СветОК]

1)Задана матрица S(9, 8). Задать исходные данные в первые 8 строк и первые 7 столбцов. Вычислить среднее арифметическое значение элементов каждой строки и записать его в 8-ой столбец, а также среднее арифметическое каждого столбца и записать его в 9-ю строку. Диапазон [0; 50].

2.) Для встречающихся в заданном тексте пар рядом расположенных символов указать, сколько раз встречается каждое из таких двухбуквенных сочетаний

для зачета надо(((

[NSvirus]

150 рублей. Кушать надо(((

[СветОК]

хм...каким образом мне тебе отдать их? =DDD

[Stilet]

А зайди ка сюда:http://www.programmersforum.ru/showthread.php?t=43231
Там идея - рализуй ее.

[Grag]

За первую задачу 50 руб. на номер телефона...
Вторую - по результатам расчета за первую...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[СветОК]

Stilet получается мне самой нужно задать пару этих букв я так понимаю? и чем тогда условие задачи которую ты мне кинул отличается от моей??

[Hacker19_90]

1)

program forum;
uses crt;
var
    Massiv: array[1..9,1..8] of real;
    i, j: byte;
    sum: real;
begin
    clrscr;
    Writeln('Введите массив');
    for i := 1 to 8 do
    begin
          sum := 0.0;
          for j := 1 to 7 do
          begin
              Read(Massiv[i,j]);
              sum := sum + Massiv[i,j];
          end;
          Massiv[i, 8] := (sum/7);
    end;
    for j := 1 to 7 do
    begin
        sum := 0;
        for i := 1 to 8 do
        begin
            sum := sum + Massiv[i,j];
        end;
        Massiv[9,j] := (sum/8);
    end;
    Massiv[9,8] := 0;
    for i := 1 to 9 do
    begin
        for j := 1 to 8 do
            Write (Massiv[i,j]:4:3);
        Writeln;
    end;
    ReadKey;
end.

Если помог кликни весы!

[СветОК]

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

Написать программу обработки массива в соответствии c условием задания. Обработка массива должна быть реализована в подпрограмме. Массив сформировать в главной программе с помощью функции Random (массив случайных чисел) в заданном диапазоне: (0; d) или (-d; d]. Результат обработки вывести в главной программе.

твоя прога рабочая но блин у меня не приняяли(

[Stilet]

мне самой нужно задать пару этих букв я так понимаю?

Да. А что смущает?

у меня не приняяли

Причину сказали?

[СветОК]

при проверке выдает :
Введите массив

т.е мне надо забивать его вручную....а нужно чтобы при вызове проверки он выдавал саму матрицу а ниже посчитанную по заданию..