Подпрограммы и обработка матриц

[LegionuS]

Цель работы: Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки.

Задача: Задана квадратная матрица A размером nxn (n больше или равно 10), состоящая из действительных элементов.
Найти среднее арифметическое из всех положительных элементов этой матрицы.

[Stilet]

Ну а в чем сложности?
Покажи как ты вводишь матрицу.

[LegionuS]

Сообщение от Stilet

Ну а в чем сложности?
Покажи как ты вводишь матрицу.

ну матрицу ты вводишь по ходу выполнения программы а там уже как введешь

[Serge_Bliznykov]

LOL!!!

LegionuS, Вас просили привести пример Вашего исходного программного кода, который производит объявление матрицы и обеспечивает возможность пользователю ввести величины элементов матрицы.

[LegionuS]

Извините просто я даже не представляю с чего начать! Вот и прошу помощи! Ну я незнаю как вводить как в задание сказано

[ROMA2PVT]

в чём сложность то я чёт не пойму.

sum:=0;
      kol:=0;
      for i:=1 to n do
       for j:=1 to n do
        if a[i,j]>0 then
        begin
        sum:=sum+a[i,j];
        inc(kol);
        end;
        sr:=sum/kol;

а проверку

(n больше или равно 10)

вот так сделай:

repeat
  readln(n);
  until n in [1..10];

[LegionuS]

Пытаюсь все сделать как ты сказал выскакивают Ошибки в програмном коде! Помогу пожалуйста завтра сдавать контрольную! Напиши полностью код если у тебя это легко получается просто для меня это дремучий лес! Гггг

[ROMA2PVT]

Пытаюсь все сделать как ты сказал выскакивают Ошибки в програмном коде!

Показывай код

[LegionuS]

Сообщение от ROMA2PVT

Показывай код

Да смысл там пол кода нужно менять легче просто чтобы ты написал мне и все! Ну пожалуйста напиши!

[ROMA2PVT]

Uses CRT;
var
  a:array[1..10,1..10] of real;
  i,j,kol,n:integer;
  sr,sum:real;
begin
repeat
write('Ââåäèòå êîëè÷åñòâî ñòðîê è ñòîëáîâ: ');
readln(n);
until n in [1..10];
for i:= 1 to n do
begin
for j:= 1 to n do
begin
write('a[',i,';',j,']:=');
readln(a[i,j]);
end;
writeln;
end;
writeln;
sum:=0;
kol:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then
begin
sum:=sum+a[i,j];
inc(kol);
end;
sr:=sum/kol;
writeln(sr:1:3);
readln;
end.

Ну а с проедурами сам разбирайся