Размещено 5 лет назад по предмету
Информатика
от VALTIM
Переделайте программу так, чтобы данные считывались с дискового файла.
program prog_2_6a; type vx=array[1..10,1..10]of real; type vy=array[1..10]of real; var x:vx; y:vy; n,m,i,j:integer; a:real; begin writeln('Введите количество cтрок'); readln(n); writeln('Введите количество столбцов'); readln(m); for i:=1 to n do begin for j:=1 to m do begin writeln(j,'-й элемент ',i,'-й строки'); readln(x[I,j]) end; end; for j:=1 to m do begin a:=0; a:=a+x[I,j]; y[j]:=a/n; writeln('Среднее значение по ',j,'-му столбцу'); writeln(y[j]:8:2); end; readln; End.
Данные матрицы находятся в изображении. P.S покажите как должна будет выглядеть матрица в файле