Показать сообщение отдельно
  (#2 (permalink)) Старый
Anonymous
Guest
 
Сообщений: n/a
По умолчанию 15.12.2002, 03:08

Будут какие-то вопросы - задавай!
Код:
program MaS;{Number 1}
uses crt;
const n=100;
var
   MP:array[1..n] of integer;
   i:integer;
begin
   ClrScr;
   for i:=1 to n do
   begin
      MP[i]:=random(50);
      write(MP[i],' ');
   end;
   writeln;
   for i:=1 to n do
   begin
      if (MP[i] mod 2<>0) and (MP[i]<>0) then MP[i]:=2*MP[i];
      if i mod 2=0 then MP[i]:=-MP[i];
   end;
   for i:=1 to n do write(MP[i],' ');
   readln;
end.

program MaSX; {Number 2}
uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,k,m,n:integer;
   b:boolean;
begin
   ClrScr;
   write('Input m -> ');readln(m);
   write('Input n -> ');readln(n);
   for i:=1 to m do
      for j:=1 to n do
      begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
      end;
   for i:=1 to m do
   begin
      for j:=1 to n do write(a[i,j],' ');
      writeln;
   end;
   write('Input k (k<n) -> ');readln(k);
   b:=true;
   for i:=1 to m do
     if a[i,k] mod 2<>0 then begin b:=false;break;end;
   if b then write('Yes!') else write('No');
   readln;
end.
Ответить с цитированием
Ads