Форум программистов [Powered by Invision Power Board]

Код

uses crt;
const n=100;
         m=100; 
var a:array [1..n] of double;
   b:array [1..m] of double;
   i,j,k:integer;
   maxa,maxb,c:integer;
begin
 clrscr;
   maxa:=-1000;
   maxb:=-1000;

   for i:=1 to n do
    begin
     write('element [',i,']= ');
     readln(a[i]);
      if(maxa<a[i]) then
      begin
        maxa:=a[i];
        j:=i;
      end;
    end;
   for i:=1 to m do
    begin
     write('element [',i,']= ');
     readln(b[i]);
      if(maxb<b[i]) then
      begin
        maxb:=b[i];
        k:=i;
      end;
    end;

    for i:=j+1 to n do
     begin
         a[i]:=0.5;
     end;
    for i:=k+1 to m do
     begin
         a[i]:=0.5;
     end;
    for i:=1 to n do
     writeln('element [',i,']= ',a[i]);
    for i:=1 to m do
     writeln('element [',i,']= ',b[i]);
     readln;
   end.