Занятие №25: Использование процедур и функций в работе с массивами.
В каждом из массивов а, в и с найти максимальный по модулю элемент и вычесть его из каждого элемента соответствующего массива
program prac1;
uses crt;
const N=10;
type massiv=array[1..N] of integer;
var
a,b,c:massiv;
i:integer;
procedure asd(var m:massiv);
var
i:byte;
max:integer;
begin
max:=m[1];
write('nachal. massiv ',m[1]);
for i:=2 to N do
begin
if abs(max)<abs(m[i]) then max:=m[i];
write(' ',m[i]);
end;
writeln;
write('rezultat');
for i:=1 to N do
begin
m[i]:=m[i]-max;
write(' ',m[i]);
end;
end;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:=random(100)-50;
b[i]:=random(1000)-500;
c[i]:=random(10000)-5000;
end;
asd(a);
writeln(#13,#10);
asd(b);
writeln(#13,#10);
asd(c);
readln;
end.
В каждом из массивов а(5), в(6) и с(7) найти максимальный по модулю элемент.
program prac1;
uses crt;
const N=10;
type massiv=array[1..N] of integer;
var
a,b,c:massiv;
i:integer;
procedure asd(var m:massiv);
var
i,max:byte;
begin
write('nachal. massiv ',m[1]);
max:=1;
for i:=2 to N do
begin
if abs(m[max])<abs(m[i]) then max:=i;
write(' ',m[i]);
end;
writeln;
write('rezultat ',m[max]);
end;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:=random(100)-50;
b[i]:=random(1000)-500;
c[i]:=random(10000)-5000;
end;
asd(a);
w
riteln(#13,#10);
asd(b);
writeln(#13,#10);
asd(c);
readln;
end.