Паскаль в примерах. Иринчеев А.А - 69 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

69
i,j,s,s1:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3;
writeln;
end;
s:=0;
for i:=1 to n do
begin
for j:=1 to n do
if j>i then s:=s+a[i,j];
end;
s1:=0;
for i:=1 to n do
begin
for j:=1 to n do
if j<I then s1:=s1+a[i,j];
end;
writeln('Сумма элементов над глав. диагональю = ',s:4,);
writeln('Сумма элементов под глав. диагональю = ',s1:4);
end.
Пример 53. Произвести транспонирование матрицы.
program pr53;
const m=3; n=2;
var
a:array [1..m,1..n] of integer;
b:array [1..m,1..n] of integer;
i,j:integer;
begin
writeln('Введите массив');
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
writeln('Исходная матрица ');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3;
writeln;
end;
for j:=1 to n do
for i:=1 to m do
b[j,I]:=a[I,j];
writeln('Транспонированная матрица ');
for i:=1 to n do 
 i,j,s,s1:integer;
  begin
  for i:=1 to n do
   for j:=1 to n do
     read(a[i,j]);
  for i:=1 to n do
 begin
   for j:=1 to n do
   write(a[i,j]:3;
    writeln;
 end;
  s:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
if j>i then s:=s+a[i,j];
 end;
  s1:=0;
 for i:=1 to n do
 begin
   for j:=1 to n do

 if j

Страницы