Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  апп
Language: PASCAL
Code:
     uses crt;
const nmax=100;
type mas=array [1..nmax] of real;
var a,b: mas;
    ra,rb: byte;
 
procedure GenM (c: char; var r: byte; var z: mas);
var i: byte;
begin
repeat
write('Размер массива ',c,', не боее ',nmax,',='); readln(r);
until r in [1..nmax];
for i:=1 to r do z[i]:=199*random-99;
end;
 
procedure Print (c: char; r: byte; z: mas);
var i: byte;
begin
writeln('Массив ',c);
for i:=1 to r do
    write(z[i]:6:1);
writeln;
end;
 
function Imax (r: byte; z: mas): byte;
var i,im: byte;
begin
im:=1;
for i:=1 to r do
    if z[i]>z[im] then im:=i;
Imax:=im;
end;
 
procedure Zamena (r: byte; var z: mas);
var i,ima: byte;
begin
ima:=Imax (r,z)+1;
for i:=ima to r do z[i]:=0.5;
end;
 
begin
GenM ('A',ra,a);
Print ('A',ra,a);
writeln('Макс.элемент=',a[Imax (ra,a)]:6:1,' под индексом ',Imax (ra,a));
Zamena (ra,a);
Print ('A',ra,a);
writeln;
GenM ('B',rb,b);
Print ('B',rb,b);
writeln('Макс.элемент=',b[Imax (rb,b)]:6:1,' под индексом ',Imax (rb,b));
Zamena (rb,b);
Print ('B',rb,b);
readln;
end.     
Comments: