# Untitled

By: a guest on May 21st, 2012  |  syntax: None  |  size: 2.25 KB  |  hits: 31  |  expires: Never
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
1. uses crt;
2.
3. type
4.  mas=array[1..20,1..20] of integer;
5.
6. function VvodOfLines:integer;
7.  var
8.   s:string;
9.   n,cod:integer;
10.  begin
11.   repeat
14.    val(s,n,cod);
15.    if (cod<>0) then
16.     writeln('you can enter only numbers, which are above zero. Correct it, please')
17.   until (n>0);
18.   VvodOfLines:=n;
19.  end;
20.
21. function VvodOfColomnes:integer;
22.  var
23.   s:string;
24.   n,cod:integer;
25.  begin
26.   repeat
29.    val(s,n,cod);
30.    if (cod<>0) then
31.     writeln('you can enter only numbers, which are above zero. Correct it, please')
32.   until (n>0);
33.   VvodOfColomnes:=n;
34.  end;
35.
37.   var
38.    i,j,n,cod:integer;
39.    s:string;
40.    a:mas;
41.   begin
42.    for i:=1 to b do
43.     begin
44.      for j:=1 to c do
45.       begin
46.        repeat
47.         writeln('enter element with index ',i,' ',j,' please');
49.         val(s,n,cod);
50.         if cod<>0 then
51.          writeln('you can enter only numbers. Correct it, please');
52.        until cod=0;
53.        a[i,j]:=n;
54.       end;
55.     end;
57.   end;
58.
59. procedure ShowingOfArray(b,c:integer; var a:mas);
60.  var
61.   i,j:integer;
62.  begin
63.   for i:=1 to b do
64.    begin
65.     for j:=1 to c do
66.      write(a[i,j], ' ');
67.      writeln;
68.    end;
69.  end;
70.
71.  procedure Quantity(b,c:integer; var a:mas);
72.  var
73.   i,j,zero,nezero:integer;
74.  begin
75.   for i:=1 to b do
76.    for j:=1 to c do
77.     if (a[i,j]=0) then
78.      zero:=zero+1
79.     else
80.      nezero:=nezero+1;
81.   writeln('quontity of elements which are zero ', zero);
82.   writeln('quontity of elements which are not zero ',nezero);
83.  end;
84.
85.  function MinMultiplication(b,c:integer; a:mas):integer;
86.  var
87.   i,j,p,pmin:integer;
88.  begin
89.   p:=1;
90.   for j:=1 to b do
91.    begin
92.      for i:=1 to c do
93.       p:=p*a[i,j];
94.      if j=1 then
95.       pmin:=p
96.      else
97.       if p<pmin then
98.        pmin:=p
99.    end;
100.   writeln('minimun multiplication of colomnes ',pmin);
101.  end;
102.
103.  begin
104.   clrscr;
105.   VvodOfLines;
106.   VvodOfColomnes;