Найти сумму элементов побочной диагонали квадратной вещественной матрицы

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,max,min:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then
  max:=x[i];
Writeln (' Maxim element = ',max);
Writeln;
Min:=x[1];
for i:=1 to n do
  if x[i]<=min then
  min:=x[i];
Writeln (' Minim element = ',min);
readln
end.

program hhh;
Uses crt;
 Var x:array [1..100] of real;
     i,n:integer;
     summa,k,sr:real;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:4:2,' ');
writeln;
summa:=0;
for i:=1 to n do begin
                 summa:=summa+x[i];
                 k:=k+1;
                 end;
sr:=summa/k;
writeln ('Summa =',summa:4:2);
Writeln ('Sr.Arifm =',sr:4:2);
readln
end.

program kkk;
uses crt;
const possible:set of char=['0'..'9','a'..'z','A'..'Z','_'];
var count,i,j:integer;
    f:boolean;
    st,buf:string;
    slova:array[1..100]of string;
    bukva:array[1..26]of integer;
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
 for i:=1 to count-1 do write(slova[i],' ');
 readln;
end.

program kkk;
uses crt;
var count,i,min,max:integer;
    st,buf:string;
    slova:array[1..100]of string;
begin
 clrscr;
 readln(st);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
 min:=length(slova[1]);
 max:=length(slova[2]);
 for i:=1 to count-1 do if length(slova[i])>max then max:=length(slova[i]) else if length(slova[i])<min then min:=length(slova[i]);
 writeln('MIN=',min);
 writeln('MAX=',max); 
 readln;
end.

uses crt;
var s: array[1..100,1..100] of real;
  m,n: byte;
  a:real;
 i,j:integer;
BEGIN
   ClrScr;
   writeln ('êîë-âî ðÿäêîâ : =>');readln(n);
   writeln ('êîë-âî ñòîëá÷îâ  : =>') ;  readln(m);
     for i:=1 to n do begin
    Writeln('ââåäèòå ',i,' ðÿäîê : =>');
     for j:=1 to m do
    Readln(s[i,j]); end;ClrScr;
  writeln('èñõîäíàÿ ìàòððèöà: =>');
  for i:=1 to n do
   begin
  writeln;
  for j:=1 to m do
    write(s[i,j],' ' ); end;writeln;
    {----------------------------}
         writeln('âåäèòå ÷èñëî');readln(a);
           for i:=1 to n do
           for j:=1 to m do
          s[i,j]:= s[i,j]*a;
   {-------------------------------}
          writeln('ïîëó÷åíàÿ ìàòððèöà: =>'); writeln;
  for i:=1 to n do
   begin
  writeln;
  for j:=1 to m do
    write(s[i,j],' '); end;end.

Program maxim;
Uses crt;
 var b:array [1..100,1..100] of real;
     i,j,n:integer;
     sum:real;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j]:4:2,' ');
    writeln;
 end;
writeln;
sum:=0;
for j:=n-i+1 to n do
sum:=sum+b[i,j];
writeln ('Summa elementov = ',sum:4:2);
Readln
end.

uses crt;
var ss,sp,s1,s2,s: array[1..100,1..100] of real;
  m,n: byte;
  a:real;
 i,j:integer;
BEGIN
   ClrScr;
   writeln('вводим 1 матрицу :=>');
   writeln ('кол-во рядков : =>');readln(n);
   writeln ('кол-во столбчов  : =>') ;  readln(m);
     for i:=1 to n do begin
    Writeln('введите ',i,' рядок : =>');
     for j:=1 to m do
    Readln(s1[i,j]); end;
 
    {----------------------------}
    
            ClrScr;
          writeln('вводим 2 матрицу :=>');
     for i:=1 to n do begin
    Writeln('введите ',i,' рядок : =>');
     for j:=1 to m do
    Readln(s2[i,j]); end;ClrScr;
    
     writeln('исходная 1 матррица: =>');
  for i:=1 to n do
   begin
  writeln;
  for j:=1 to m do
    write(s1[i,j],' ' ); end;writeln;
  writeln('исходная 2 матррица: =>');
  for i:=1 to n do
   begin
  writeln;
  for j:=1 to m do
    write(s2[i,j],' ' ); end;writeln;
    {----------------------------}
      writeln('сумма');
     for i:=1 to n do  begin writeln;
     for j:=1 to m do   begin
     ss[i,j]:=s1[i,j]+s2[i,j];
     write(ss[i,j],' ');
     end; end;               writeln('произведение');
                              for i:=1 to n do begin writeln;
                              for j:=1 to m do          begin
                              sp[i,j]:= s1[i,j]*s2[i,j];
                              write(sp[i,j],' ');
 
     end; end;
     end.

program hhh;
Uses crt;
const n=10;
 Var x:array [1..n] of integer;
     i,k:integer;
begin
clrscr;
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
k:=0;
for i:=1 to n do
 if x[i]<0 then k:=k+1;
writeln ('Kol-vo elementov < 0 =',k);
Readln
end.

Program maxim;
Uses crt;
Const n=4;
 var b:array [1..n,1..n] of real;
     a:array [1..n] of real;
     i,j:integer;
     min,p:real;
begin
clrscr;
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j]:4:2,' ');
    writeln;
 end;
writeln;
for i:=1 to n do
               begin
               min:=b[i,1];
               for j:=1 to n do
               if b[i,j]<=min then begin
                                   min:=b[i,j];
                                   a[i]:=min;
                                   end;
               end;
writeln;
writeln (' Minim elementy v strokax ');
for i:=1 to n do
write (a[i]:4:2,' ');
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln (' Proizvedenie = ',p:4:2);
readln
end.

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,n:integer;
begin clrscr;
write('n=');
read(n);
writeln('vvod matrici');
for i:=1 to n do
 begin
  for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   read(a[i,j]);
  end;
  writeln;
 end;
writeln('ishodnaya matrica');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
writeln('poluchennaya matrica');
for i:=n downto 1 do
 begin
  for j:=n downto 1 do
   write(a[i,j],'  ');
   writeln;
  end;
readkey;
end.

uses crt;
const n=100;
var
 kr,next, i:word;
 bs, prs: set of 1..n;
begin clrscr;
 bs:=[2..n];
 prs:=[];
 next:=2;
 while bs<>[] do
  begin
   kr:=next;
   while kr<=n do
    begin
     bs:=bs-[kr];
     kr:=kr+next;
    end;
   prs:=prs+[next];
   repeat
     inc(next);
   until (next in bs)or(next>n);
  end;
 for i:=1 to n do
 if i in prs then write(i:5);
 readkey;
end.

program zad25;
uses crt;
 type
     dt=record
     d:1..31;
     m:1..12;
     y:1980..2000;
  end;
     person=record
     familia:string[20];
     data:dt;
  end;
     mass=array[1..4] of person;
const
mp:mass=((familia:'Ivanov';data:(d:3;m:4;y:1981)),
         (familia:'Petrov';data:(d:10;m:7;y:1986)),
         (familia:'Sidorov';data:(d:31;m:10;y:1990)),
         (familia:'Kozlov';data:(d:24;m:5;y:2000)));
var
     st:string;
     k,i:integer;
     flag:boolean;
begin
clrscr;
Writeln('Vvedite familiu');
Readln(st);
for i:=1 to 4 do   {mozhno obiavit' 3 4erez peremennuiu "n"}
if st<>mp[i].familia then flag:=true else begin
flag:=false;
k:=i;
break;
end;
if flag then writeln('Vi vveli ne vernuiu familiu,takogo 4eloveka v spiske net') else
writeln(mp[k].data.d,' ',mp[k].data.m,' ',mp[k].data.y);
readkey;
end.

program N30;
uses crt;
const n=2;
var
a:array [1..20,1..20,1..20] of integer;
i,j,k,min:integer;
begin
clrscr;
writeln('vvedite elementi matrici cherez probel');
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
read(a[i,j,k]);
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
writeln('a[',i,',',j,',',k,']=',a[i,j,k]);
min:=a[1,1,1];
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if a[i,j,k]<min then min:=a[i,j,k];
writeln;
writeln('min = ',min:8);
readkey;
end.

program zad28;
uses crt;
const n=2;
var
a:array [1..20,1..20,1..20] of integer;
i,j,k,x,p:integer;
begin
clrscr;
writeln('vvedite elementi matrici cherez probel');
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
read(a[i,j,k]);
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
writeln('a[',i,',',j,',',k,']=',a[i,j,k]);
p:=1;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i=j) and (i=k) then p:=p*a[i,j,k];
writeln('p= ',p);
readkey;
end.

uses crt;
type
K = record
x,y : integer;
end;
K2 = record
x2,y2 : integer;
end;
res = record
x3,y3 : integer;
end;
var
km : k;
km2 : k2;
rs : res;
begin
clrscr;
writeln('Введите число 1:');
with km do read(x,y);
writeln('число 2:');
with km2 do read(x2,y2);
with rs do begin
rs.x3:=km.x+km2.x2;
rs.y3:=km.y+km2.y2;
end;
writeln('Сумма=',rs.x3,'+',rs.y3,'i');
with rs do begin
rs.x3:=(km.x*km2.x2-km.y*km2.y2);
rs.y3:=(km.y*km2.x2+km.x*km2.y2);
end;
writeln('Произведение=',rs.x3,'+',rs.y3,'i');
readkey;
end.

uses crt;
var
str : string;
a,b : integer;
begin
clrscr;
readln(str);
a:=1;
while a<length(str) do begin
b:=ord(str[a]);
inc(a);
if ord(str[a])<b then begin
writeln('Нет алфавитного порядка!');
readkey;
exit;
end;
end;
writeln('Строка упорядочена по алфавиту');
readkey;
end.