Народ помогите разобратся. У меня есть 4 масива (m1,m2,m3,m4) мне нужно прменить к ним процедуру
| Pascal |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
| {$R-}
Program xa;
uses
crt;
type
Tmatr=array [1..1] of integer;
matr=^Tmatr;
var
a:matr;
i,n,min,j:integer;
flag:boolean;
procedure printmas(a:matr;n:integer);
var
i:integer;
begin
for i:=1 to n do Write(a^[i], ' ');
end;
begin
repeat
clrscr;
writeln('Vvedute pa3mepnoct'' macciva');
Write('N= ');
readln(n);
until n>0;
GetMem(a,sizeof(integer)*n);
min:=1;
Writeln('VVedute cam massiv');
for i:=1 to n do
begin
Write('A[',i,']= ');
readln(a^[i])
end;
clrscr;
Writeln('macciv do u3menenui');
printmas(a,n);
for i:=2 to n do
if a^[min]>a^[i] then min:=i;
for i:=1 to n do
begin
flag:=false;
j:=1;
while (j<=n) and not(flag) do
begin
if (j<>i) and (a^[i]=a^[j]) then
flag:=not(flag);
inc(j)
end;
if not(flag) then a^[i]:=a^[min];
end;
Writeln;
Writeln('Macciv posle u3menenui');
printmas(a,n);
readln;
end.
{$R+} |
|
что нужно изменить в процедуре если у m1 длнна 12 чисел, у m2 длнна 15 чисел, у m3 длнна 15, чисел у m4 длнна 30 чисел, и массивы раситываются сами с поизвольными числами те(m1,m2,m3,m4) а эта программа для введения самим с клавиатуры что нужно переделать. Помогите пожалуйсто.
(
