Составить программы решения задач

[James_047]

Собственно по аналогии 3.3 а)

var a:array[1..100,1..100]of integer;
i,j,n,m:integer;
f:boolean;
begin

 write('Vvedite n');
 readln(n);

 for i:=1 to n do for j:=1 to n do
 begin
  write('Vvedite A[',i,' ',j,']: ');
  readln(a[i,j]);
 end;
writeln('Ishodnaya matrica');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
for j:=1 to n do
 begin
  f:=true;
  for i:=2 to n do if (a[1,j]<>0) and (a[i,j]<>0)   then f:=false;
  if f then writeln(j,' stolbec');
 end;
 readln;
end.

[McFrey]

2(а)

program  matrix;

uses
  crt;

var
  mas:  array [1..100, 1..100] of integer;
  i, j, m, n, sumost, sumdiag, slog: integer;

begin
  readln(n, m);
  for i := 1 to n do
    for j := 1 to m do
      readln(mas[i, j]);
  slog := 0;
  sumdiag := 0;
  for j := 1 to m do
    slog := slog + mas[1, j];
  for j := 1 to m do
    slog := slog + mas[n, j];
  for i := 2 to n - 1 do
    slog := slog + mas[i, 1];
  for i := 2 to n - 1 do
    slog := slog + mas[i, j];
  sumdiag := slog;
  writeln(sumdiag);
end.

[James_047]

3.3 в)

var a:array[1..100,1..100]of integer;
i,j,n,m:integer;
f:boolean;
begin

 write('Vvedite n');
 readln(n);

 for i:=1 to n do for j:=1 to n do
 begin
  write('Vvedite A[',i,' ',j,']: ');
  readln(a[i,j]);
 end;
writeln('Ishodnaya matrica');
 for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
for j:=1 to n do
 begin
  f:=true;
  for i:=2 to n do if a[i,j]<a[i-1,j] then f:=false;
  if f then writeln(j,' stolbec');
 end;
 readln;
end.

[McFrey]

2(б)

program mc_Frey;
uses crt;
var
A:array [1..15, 1..15] of integer;
i,j,n,sum: integer;

begin
clrscr;
writeln ('Введите размер матрицы');
readln (n);
writeln ('Введите элементы матрицы');
for i:=1 to n do
for j:=1 to n do
readln (A[i,j]);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (A[i,j]:5);
end;
writeln;
sum:=0;
for i:=1 to n do
sum:=sum+A[i,i];
writeln ('suma diagonaly=', sum);
readln;
end.