program exam24;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
matr=array[1..10,1..10]of integer;
var a,b,d:matr;
m,n,k,i,j,s:integer;
Function Summa( d:matr;n:integer;var s:integer):integer;
begin
s:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then s:=s+a[i,j];
writeln;
writeln('Summa:',s);
end;
begin
repeat
writeln('Vvedite razmernost matrici');
readln(m);
until (m<=10) and (m>0);
writeln('Vvedite elementi matrici');
for i:=1 to m do
for j:=1 to m do readln(a[i,j]);
writeln('Vveli:');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
Writeln('Summa elementov nad glavnoy diagonalyu:');
Summa(a,m,s);
writeln;
repeat
writeln('Vvedite razmernost matrici');
readln(k);
until (k<=10) and (k>0);
writeln('Vvedite elementi matrici');
for i:=1 to k do
for j:=1 to k do readln(a[i,j]);
writeln('Vveli:');
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j]:4);
writeln;
end;
writeln;
Writeln('Summa elementov nad glavnoy diagonalyu:');
Summa(b,k,s);
readln
end.

Случайные файлы

Файл
diada-kinemat.txt
description.txt
1.txt
Readme.txt
about.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.