Определение сумм по строкам и столбцам матрицы - Turbo Pascal

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

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

Код к задаче: «Определение сумм по строкам и столбцам матрицы - Turbo Pascal»

textual
uses crt;
const m=5;{фиксированный размер матрицы}
      n=7;
var a:array[1..m,1..n] of real;
    i,j:byte;
    s:real;
    f:text;
begin
clrscr;
randomize;
assign(f,'matrix.txt');
rewrite(f);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
    write(f,a[i,j]:6:2);
   end;
  writeln;
  writeln(f);
 end;
close(f);
writeln('Суммы в строках');
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  writeln(i,' = ',s:0:2);
 end;
writeln('Суммы в столбцах');
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to m do
  s:=s+a[i,j];
  writeln(j,' = ',s:0:2);
 end;
readln
end.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ