Максимальное число Опции

[Clane]

Вот алгоритм поиска максимального числа в массиве.

Код

program maxmassiv(input,output);
var a: array [1..10] of Byte;
Max:integer;
I:byte;
begin
I:=0;
for I:=1 to 10 do
begin
writeln('Enter an integer:');
readln(a[i]);
end;
Max:=A[1];
For I:=1 to 10 do
begin
if Max<A[I] then Max:=A[I];
end;
writeln(Max);
readln;
readln;
end.

Сообщение отредактировано: volvo - 17.12.2004 11:55

[Shadow]

:'(
отвратиетельный дебильный код написал но работает вроде
---
там протестируешь
-----
кстати насчет нахождение иаксимально числа в массиве а не проще его
от сортировать по возраст и взять последнее число из массива
---

Код

Uses Crt,Dos;
Const color : Array [0..6,0..6] Of byte =
((1,1,1,1,1,1,1),{4}
(1,1,1,1,1,8,1), {6}
(1,1,1,1,1,8,8),  {5}
(6,7,8,1,1,1,1),  {4}
(1,1,1,1,6,1,1),  {3}
(1,1,6,7,5,1,1),   {2}
(1,2,4,0,5,6,0)); {1 13 chtuck}

Var
x,y,x1,y1,d,v,g,n,n1,sum:byte;
x2:byte;
y2:byte;
s,s1,s2,s3,s4,s5,s6:byte;
p,p1,p2,p3,p4:byte;

st:array[0..7] of integer;

label we;

BEGIN
n:=6;
n1:=6;
     for x:=0 to n do
         for y:=0 to n1 do begin

         x1:=color[x,y];


         if x1=1 then begin
          sum:=sum+1;
         end;

         if x=0 then if y=n then begin
         s:=sum;
         st[0]:=s;
         sum:=0;
         end;

         if x=1 then if y=n then begin
         s1:=sum;
         st[1]:=s1;
         sum:=0;
         end;

         if x=2 then if y=n then begin
         s2:=sum;
               st[2]:=s2;
         sum:=0;
         end;

         if x=3 then if y=n then begin
         s3:=sum;
         st[3]:=s3;
         sum:=0;
         end;

         if x=4 then if y=n then begin
         s4:=sum;
         st[4]:=s4;
         sum:=0;
         end;

         if x=5 then if y=n then begin
         s5:=sum;
         st[5]:=s5;
         sum:=0
         end;

         if x=6 then if y=n then begin
         s6:=sum;
         st[6]:=s6;
         sum:=0;
         end;

         end;
            st[7]:=78;
         asm
         mov ax,3
               int 10h

         end;

         write('0st=',s,';  1-st=',s1,'; 2st=',s2,'; 3st=',s3);
         write('; 4st=',s4,'; 5st=',s5,'; 6st=',s6);
         asm
         mov ah,0
         int 16h
         end;
         g:=0;
         v:=0;
         repeat
            p:=st[v];
            v:=v+1;         {0}
              p1:=st[v];         {1}

              if p=78 then goto we;

             if p>p1 then begin
                    st[v]:=p;  {1}
                      v:=v-1;
                         st[v]:=p1;{0}
                         v:=0;

           end;
           Until KeyPressed;

        we:
         gotoxy(10,10);
         write('st0=',st[0],' st1=',st[1],' st2=',st[2],' st3=',st[3]);
         write(' st4=',st[4],' st5=',st[5],' max sum in matrix 1 st6=',st[6]);
                asm
                mov ah,0
                int 16h
                end;

END.

Сообщение отредактировано: volvo - 17.12.2004 11:56