№21 А10
|
1
| В таблице Dat хранятся данные о численности учеников в классах (Dat[1] –число учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык
| Бейсик
| Паскаль
| алг
нач
целтаб Dat[1:11]
цел k, m
Dat[1] := 20; Dat[2] := 25
Dat[3] := 19; Dat[4] := 25
Dat[5] := 26; Dat[6] := 22
Dat[7] := 24; Dat[8] := 28
Dat[9] :=26; Dat[10] :=21
Dat[11] := 27
m := 0
нц для k от 1 до 11
если Dat[k] > 22 то
m := m + 1
все
кц
вывод m кон
| DIM Dat(11) AS INTEGER
DIM k, m AS INTEGER
Dat(1) = 20: Dat(2) = 25
Dat(3) = 19: Dat(4) = 25
Dat(5) = 26: Dat(6) = 22
Dat(7) = 24: Dat(8) = 28
Dat(9) = 26: Dat(10) = 21
Dat(11) = 27
m = 0
FOR k = 1 TO 11
IF Dat(k) > 22 THEN
m = m + 1
END IF
NEXT k
PRINT m
| Var k, m: integer;
Dat: array[1..11] of integer;
Begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 0;
for k := 1 to 11 do
if Dat[k] > 22 then
begin
m := m + 1
end;
writeln(m)
End.
|
|
2
| В таблице Ball хранятся отметки по контрольной работе (Ball [1] –отметка 1 ученика, Ball [2] – отметка 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующего алгоритма, записанного на трех алгоритмических языках.
Алгоритмический
| Бейсик
| Паскаль
| алг
нач
цел k, c
Ball[1]:=4; Ball[2]:=5
Ball[3]:=3; Ball[4]:=4
Ball[5]:=2; Ball[6]:=5
Ball[7]:=4; Ball[8]:=3
Ball[9]:=4; Ball[10]:=5
c:= 0
нц для k от 1 до 10
если Ball[k] >3 то
c:=c+1
все
кц
вывод с кон
| DIM Ball(10) AS INTEGER
DIM k, c AS INTEGER
Ball(1)=4: Ball(2)=5
Ball(3)=3: Ball(4)=4
Ball(5)=2: Ball(6)=5
Ball(7)=4: Ball(8)=3
Ball(9)=4: Ball(10)=5
c = 0
FOR k = 1 TO 10
IF Ball(k) >3 THEN
c=c+1
ENDIF
NEXT k
PRINT c
END
| Var k, c: integer;
Ball: array[1..10] of integer;
Begin
c:=0;
Ball[1]:=4; Ball[2]:=5;
Ball[3]:=3; Ball[4]:=4;
Ball[5]:=2; Ball[6]:=5;
Ball[7]:=4; Ball[8]:=3;
Ball[9]:=4; Ball[10]:=5;
for k:=1 to 10 do begin
if Ball[k] >3 then
c:=c+1;
end;
write(c);
End.
|
|
3
| В таблице Ball хранятся отметки по контрольной работе (Ball[1] – отметка 1 ученика, Ball[2] – отметка 2 ученика и т. д.). Определите, что будет напечатано в результате работы следующей программы.
Алгоритмический
| Бейсик
| Паскаль
| алг
нач
целтаб Ball[1:10]
цел k, c
Ball[1]:=3; Ball[2]:=5
Ball[3]:=3; Ball[4]:=2
Ball[5]:=5; Ball[6]:=5
Ball[7]:=4; Ball[8]:=3
Ball[9]:=3; Ball[10]:=5
c:= 0
нц для k от 1 до 10
если Ball[k] <4 то
c:=c+1
все
кц вывод с кон
| DIM Ball(10) AS INTEGER
DIM k, c AS INTEGER
Ball(1)=3: Ball(2)=5
Ball(3)=3: Ball(4)=2
Ball(5)=5: Ball(6)=5
Ball(7)=4: Ball(8)=3
Ball(9)=3: Ball(10)=5
c = 0
FOR k = 1 TO 10
IF Ball(k)<4 THEN
c=c+1
ENDIF
NEXT k
PRINT c
END
| Var k, c: integer;
Ball: array[1..10] of integer;
Begin
c:=0;
Ball[1]:=3; Ball[2]:=5;
Ball[3]:=3; Ball[4]:=2;
Ball[5]:=5; Ball[6]:=5;
Ball[7]:=4; Ball[8]:=3;
Ball[9]:=3; Ball[10]:=5;
for k:=1 to 10 do begin
if Ball[k]<4 then
c:=c+1;
end;
write(c);
End.
|
|
4
| В таблице A хранятся данные о количестве учеников опоздавших на занятия за неделю (А[1]- данные за понедельник, А[2] – за вторник и т. д.) Определите, что будет напечатано в результате работы следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический
| Бейсик
| Паскаль
| алг
нач
цел таб А [1:6]
цел k, m, day
A[1]:=3; A[2]:=1
A[3]:=4; A[4]:=2
A[5]:=4; A[6]:=2
day: = 1, m:= A[1]
нц для k от 2 до 6
если A[k] >= m то
m:= A[k] day: = k,
все
кц
вывод day
кон
| DIM day, m, k AS INTEGER
DIM A(6) AS INTEGER
A(1)=3: A(2)=1
A(3)=4: A(4)=2
A(5)=4: A(6)=2
day = 1: m=A(1)
FOR k = 2 TO 6
IF A(k) >= m THEN
m = A(k)
day = k
END IF
NEXT k
PRINT day
| var k, m, day: integer;
A: array[1..6] of integer;
Begin
A[1]:= 3; A[2]:= 3;
A[3]:= 4; A[4]:= 2;
A[5]:= 4; A[6]:= 2;
day := 1; m := A[1];
for k := 2 to 6 do
begin
if A[k] >= m then
begin
m := A[k];
day := k;
end;
end;
write(day);
end.
|
|
5
| В таблице A хранятся данные о количестве учеников опоздавших на занятия за неделю (А[1]- данные за понедельник, А[2] – за вторник и т. д.) Определите, что будет напечатано в результате работы следующего алгоритма, записанного на трёх алгоритмических языках.
Алгоритмический
| Бейсик
| Паскаль
| алг
нач
цел таб А [1:6]
цел k, m, day
A[1]:=5; A[2]:=4
A[3]:=2; A[4]:=2
A[5]:=4; A[6]:=3
day: = 1, m:= A[1]
нц для k от 2 до 6
если A[k] <= m то
m:= A[k] day: = k,
все
кц
вывод day
кон
| DIM day, m, k AS INTEGER
DIM A(6) AS INTEGER
A(1)=5: A(2)=4
A(3)=2: A(4)=2
A(5)=4: A(6)=3
day = 1: m = A(1)
FOR k = 2 TO 6
IF A(k) <= m THEN
m = A(k)
day = k
END IF
NEXT k
PRINT day
| Var k, m, day: integer;
A: array[1..6] of integer;
Begin
A[1]:=5; A[2]:=4;
A[3]:=2; A[4]:=2;
A[5]:=4; A[6]:=3;
day:= 1; m:=A[1];
for k:=2 to 6 do
begin
if A[k] <= m then
begin
m:=A[k];
day:=k;
end;
end;
write(day);
End.
|
|
6
| В таблице Dat хранятся данные ежедневных измерений количества осадков за неделю в миллиметрах (Dat[1] – данные за понедельник, Dat [2] – за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.
Алгоритмический
| Бейсик
| Паскаль
| алг
нач
цел таб Dat[1:7]
цел k, m, day
Dat[1] := 14; Dat[2] := 10
Dat[3] := 0; Dat[4] := 15
Dat[5] := 0; Dat[6] := 15
Dat[7] := 10
day := 1; m := Dat[1]
нц для k от 2 до 7
если Dat[k] > m то
m := Dat[k]; day := k
все
кц
вывод day
кон
| DIM m, k AS INTEGER
Dat(1) = 14: Dat(2) = 10
Dat(3) = 0: Dat(4) = 15
Dat(5) = 0: Dat(6) = 15
Dat(7) = 10
day = 1: m = Dat(1)
FOR k = 2 TO 7
IF Dat(k) > m THEN
m = Dat(k)
day = k
END IF
NEXT k
PRINT day
| var k, m, day: integer;
Dat: array[1..7] of integer;
begin
Dat[1] := 14; Dat[2] := 10;
Dat[3] := 0; Dat[4] := 15;
Dat[5] := 0; Dat[6] := 15;
Dat[7] := 10;
day := 1; m := Dat[1];
for k := 2 to 7 do begin
if Dat[k] > m then begin
m := Dat [k]; day := k
end;
end;
write(day);
end.
|
|
7
| В таблице Dat хранятся данные ежедневных измерений количества осадков за неделю в миллиметрах (Dat[1] – данные за понедельник, Dat [2] – за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках.
Алгоритмический
язык
| Бейсик
| Паскаль
| алг
нач
цел k, day
Dat[1] := 14; Dat[2] := 10
Dat[3] := 0; Dat[4] := 15
Dat[5] := 0; Dat[6] := 15
Dat[7] := 10
day := 0;
нц для k от 1 до 7
если Dat[k] = 0 то
day := k
все
кц
вывод day
кон
| DIM Dat(7) AS INTEGER
DIM day, k AS INTEGER
Dat(1) = 14: Dat(2) = 10
Dat(3) = 0: Dat(4) = 15
Dat(5) = 0: Dat(6) = 15
Dat(7) = 10
day = 0
FOR k = 1 TO 7
IF Dat(k) = 0 THEN
day=k
ENDIF
NEXT k
PRINT day
| var k, day: integer;
Dat: array[1..7] of integer;
begin
Dat[1] := 14; Dat[2] := 10;
Dat[3] := 0; Dat[4] := 15;
Dat[5] := 0; Dat[6] := 15;
Dat[7] := 10;
day := 0;
for k := 1 to 7 do
if Dat[k] = 0 then
day := k;
write(day);
end.
|
|
8
| В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования
Алгоритмический
язык
| Бейсик
| Паскаль
| алг
нач
цел таб Dat[1:7]
цел k, m
Dat[1]:=-2; Dat[2]:=-1
Dat[3]:=2; Dat[4]:=4
Dat[5]:=0; Dat[6]:=-1
Dat[7]:=-4
m:= 0
нц для k от 1 до 7
если Dat[k] < 0 то
m:=m+1
все
кц
вывод m
кон
| DIM Dat(7) AS INTEGER
Dat(1)=-2: Dat(2)=-1
Dat(3)=2: Dat(4)=4
Dat(5)=0: Dat(6)=-1
Dat(7)=-4
m = 0
FOR k = 1 TO 7
IF Dat(k) < 0 THEN
m=m+1 :
END IF
NEXT k
PRINT m
END
| Var k, m: integer;
Dat: array[1..7] of integer;
Begin
m:=0;
Dat[1]:=-2; Dat[2]:=-1;
Dat[3]:=2; Dat[4]:=4;
Dat[5]:=0; Dat[6]:=-1;
Dat[7]:=-4;
for k:=1 to 7 do begin
if Dat[k] < 0 then
m:=m+1;
end
write(m);
End.
|
|
9
| В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т. д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.
Var k, m, day: integer;
Dat: array[1..7] of integer;
Begin
Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; day:= 1; m:=Dat[1];
for k:=2 to 7 do begin if Dat[k] < m then begin m:=Dat[k]; day:=k end;
end write(day); End.
|
10
| В таблице Mas хранятся данные выпавших осадков за неделю (Mas[l] - данные за понедельник, Mas[2] - за вторник и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Алгоритмический
| Бейсик
| Паскаль
| алг
нач
цел таб Mas[1:7]
цел k, m, i
Mas [1]: =10 Mas [2]: =5
Mas[3]:=7 Mas[4]:=3
Mas [5]: =9 Mas [6]: =2
Mas [7]: =4
k:=0
m:=Mas[6]+Mas[7]
нц для i от 1 до 5
если Mas[i]>m то
k:=k+l
все
кц
вывод к
кон
| DIM Mas(7) AS INTEGER
DIM k, m, i AS INTEGER
Mas(1)=10 Mas(2)=5
Mas(3)=7 Mas(4)=3
Mas(5)=9 Mas(6)=2
Mas(7)=4
k=0
m=Mas(6)+Mas(7)
FOR i=l TO 5
IF Mas(i)>m THEN
k=k+l
END IF
NEXT i
PRINT k
END
| Var k, m, i: integer;
Mas: array [1..7] of integer;
Begin
Mas[l]:=10; Mas[2]:=5;
Mas[3]:=7; Mas[4]:=3;
Mas[5]:=9; Mas[6]: =2;
Mas[7]:=4;
k:=0; m:=Mas[6]+Mas[7];
for i:=l to 5 do
if Mas[i]>m then k:=k+1;
write(k)
End.
|
|
11
| Дан массив, состоящий из 10-ти элементов. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Алгоритмический
| Бейсик
| Паскаль
| алг нач
цел таб Mas[1:10]
цел ml, m2, i
Mas [1]: =12; Mas [2]: =43
Mas [3]: =48; Mas [4]: =56
Mas [5]: =76; Mas [6]: =73
Mas [7]: =36; Mas [8]: =96
Mas[9]:=69; Mas[10]:=25
ml:=div(Mas[1],10)+mod(Mas[1],10)
нц для i от 2 до 10
m2:=div(Mas[i],10)+mod(Mas[i],10)
если ml < m2 то
ml:=m2
все кц
вывод ml
кон
| DIM Mas(10) AS INTEGER
Mas(l)=12: Mas(2)=43
Mas(3)=48: Mas(4)=56
Mas(5)=76: Mas(6)=73
Mas(7)=36: Mas(8)=96
Mas(9)=69: Mas(10)=25
ml=Mas(l)\10 + Mas(l) MOD 10
FOR i=2 TO 10
m2=Mas(i)\10 + Mas(i) MOD 10
IF ml < m2 THEN ml=m2
NEXT i
PRINT ml
END
| Var m1, m2, i: integer;
Mas: array[1..10] of integer;
Begin
Mas[1]:=12; Mas[2]:=43;
Mas[3]:=48; Mas[4]:=56;
Mas[5]:=76; Mas[6]:=73;
Mas[7]:=36; Mas[8]:=96;
Mas[9]:=69; Mas[10]:=25;
M1:=Mas[l] div 10 + Mas[l] mod 10;
for i:=2 to 10 do begin
m2:=Mas[i] div 10 + Mas[i] mod 10;
if ml < m2 then ml:=m2
end;
write(m1)
End.
|
|
12
| Дан массив, состоящий из 10-ти элементов. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Алгоритмический язык
| Бейсик
| Паскаль
| алг
нач
цел таб Mas[1:10]
цел m2, k, i
Mas[l]:=12; Mas[2]:=43
Mas[3]=48; Mas [4] :=56
Mas[5]=76; Mas[6] :=73
Mas[7]=36; Mas[8]:=96
Mas[9]:=69; Mas[10]:=25;
k:=0
ml:=div(Mas [l],10)-mod(Mas[1],10)
нц для i от 2 до 10
m2:=div(Mas[i],10)-mod(Mas[i],10)
если ml > m2 то
ml =m2;
k:=i;
все
кц
вывод k
кон
| DIM Mas(10) AS INTEGER
Mas(l)=12: Mas(2)=43
Mas(3)=48 Mas (4) =56
Mas(5)=76: Mas(6)=73
Mas(7)=36 Mas (8) =96
Mas(9)=69: Mas(10)=25
k=0
m1=Mas(l)\10 - Mas(l) MOD 10
FOR i=2 TO 10
m2=Mas(i)\10 - Mas(i) MOD 10
IF ml > m2 THEN ml=m2 : k=i
NEXT i
PRINT k
END
| Var m1, k, i: integer;
Begin
Mas [1]: =12; Mas [2]: =43;
Mas[3]:=48; Mas[4] :=56;
Mas[5]:=76; Mas[6]:=73;
Mas[7]:=36; Mas[8]:=96;
Mas [9]:=69; Mas [10]:==25;
k:=0;
m1:=Mas[l] div 10 - Mas[l] mod 10;
for i:=2 to 10 do
begin
m2:=Mas[i] div 10 - Mas[i] mod 10
if ml > m2 then begin
ml:=m2; k:=i
end
end;
write(k)
End.
|
|
13
| Дан массив, состоящий из 10-ти элементов. Определите, что будет напечатано в результате выполнения следующего алгоритма.
Паскаль
| Var S, I :integer;
Mas: array[1..10] of integer;
Begin
Mas[l]=14; Mas [2]:=10;
Mas[3]= -8; Mas [4]:=6;
Mas [5]=12; Mas [6]:=4;
Mas [7]= -16; Mas [8]:= -7;
Mas [9]=5; Mas[10]: =3;
s:=0;
for i:=1 to 5 do
Mas[2*i]:=0;
for i: ==1 to 10 do
if Mas[i] > 5 then s:=s+Mas[i];
write(s)
End.
|
|
14
| Дан массив, состоящий из 10-ти элементов. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Паскаль
| Var s, i:integer;
Mas: array[1..10] of integer;
Begin
Mas [l]:=14; Mas [2]: =10;
Mas [3]:= -8; Mas[4]:=6;
Mas [5]:=12; Mas [6]: =4;
Mas [7]:= -16; Mas[8]:= -7;
Mas [9]:=5; Mas[10]:=3;
s:=0;
for i: =1 to 5 do Mas[2*i]:= - l*Mas[2*i-l];
for i: =1 to 10 do
if Mas[i]> 0 then s:=s+Mas[i];
write (s)
End.
|
|
1
| В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Ниже представлен фрагмент программы, в котором значения элементов сначала задаются, а затем меняются.
for i:=0 to 9 do A[i]:=9-i;
for i:=0 to 4 do begin k:=A[i]; A[i]:=A[9-i]; A[9-i]:=k;
end;
Чему будут равны элементы этого массива после выполнения фрагмента программы?
|
2
| Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do A[n] := n - 10;
for n:=1 to 100 do B[n] := A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
1) 10 2) 50 3) 90 4) 100
|
3
| В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do A[i]:= i + 1;
for i:=10 downto 0 do A[i]:= A[10-i];
Чему будут равны элементы этого массива?
1) 10 9 8 7 6 5 4 3 2 1 0 2) 11 10 9 8 7 6 5 4 3 2 1 3) 11 10 9 8 7 6 7 8 9 10 11 4) 1 2 3 4 5 6 5 4 3 2 1
|
4
| В программе описан одномерный целочисленный массив с индексами от 1 до n.
A[1]:= 1; A[2]:= 1; N:=10;
FOR I := 3 TO N DO A[I] := A[I - 1] + A[I - 2];
Writeln(A[I]);
а) Чему будет равно значение элемента массива A[I] после выполнения этого фрагмента программы
б) Сколько элементов массива в результате будут равны 1?
в) Сколько элементов массива в результате будут больше 10?
г) Сколько элементов массива имеют четные значения?
|
5
| Определите, что будет напечатано в результате работы следующей программы.
Var k, m, day: integer;
Dat: array[1..8] of integer;
Begin
Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; Dat[8]:=-6;
for k:=1 to 4 do begin m:=Dat[k]; Dat[k]:=dat[9-k];dat[9-k]:=10-m; end;
write(dat[5]);
End.
|
6
| Определите, что будет напечатано в результате работы следующей программы.
Var k, m, n, day: integer;
Dat: array[1..8] of integer;
Begin
Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; Dat[8]:=-6;
n:=-1;
for k:=1 to 4 do begin
n:=n+2;
if Dat[n]<Dat[n+1] then begin m:=Dat[n]; Dat[n]:=dat[n+1];dat[n+1]:=m; end else Dat[n]:=Dat[n+1]+1;
end;
write(dat[2],' ', dat[9]);
writeln;
End.
|
7
| Определите, что будет напечатано в результате работы следующей программы.
Var k, m, n : integer;
Dat: array[1..10] of integer;
Begin
Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; Dat[8]:=-6;Dat[9]:=-6;Dat[10]:=6;
n:=0;m:=0;
for k:=1 to 9 do begin
if Dat[k]<Dat[k+1] then begin m:=m+dat[k] end else n:=n+1;
end;
write(n,' ',m);
writeln;
End.
|
8
| Определите, что будет напечатано в результате работы следующей программы.
Var k, m, n : integer;
Dat, a,B: array[1..10] of integer;
Begin
a[1]:=7; a[2]:=9; a[3]:=10; a[4]:=8; a[5]:=6; a[6]:=7; a[7]:=6; a[8]:=-6;a[9]:=-6;a[10]:=6;
n:=A[1];m:=1;
for k:=2 to 10 do begin if n>a[k] then begin N:=a[K]; m:=K;end
end;
write(n,' ',m);
writeln;
End.
|
9
| Определите, что будет напечатано в результате работы следующей программы.
Var k, m, n : integer;
Dat, a,B: array[1..10] of integer;
Begin
a[1]:=7; a[2]:=9; a[3]:=10; a[4]:=8; a[5]:=6; a[6]:=7; a[7]:=6; a[8]:=-6;a[9]:=-6;a[10]:=6;
n:=A[1];m:=1;
for k:=2 to 10 do begin if n<a[k] then begin N:=a[K]; m:=K;end
end;
A[m]:=n+m;
writeln(A[m]);
End.
|
10
| Определите, что будет напечатано в результате работы следующей программы.
Var k, m, n : integer;
Dat, a,B: array[1..10] of integer;
Begin
a[1]:=7; a[2]:=9; a[3]:=10; a[4]:=8; a[5]:=6; a[6]:=7; a[7]:=6; a[8]:=-6;a[9]:=-6;a[10]:=6;
n:=1;m:=1;
while a[n]>0 do n:=n+1;
for m:=n to 9 do a[m]:=a[m+1];
a[m+1]:=0; for n:=1 to 10 do write(A[n]:4);
End.
|
11
| В программе описан одномерный целочисленный массив с индексами от 1 до n. Что делает данная программа? Чему будет равно значение переменной Kol после выполнения этого фрагмента программы (если n=10? А значения массива - 1, 2, 2, 2, -1, 1, 0, 34, 3, 3)
Var I, j, N, K, Kol : Integer;
A, b : Array [1..50] Of Integer;
Begin
ReadLn(N);
FOR I := 1 TO N DO Begin Write('A[', I, ']='); ReadLn (A[I]); End;
Kol := 1; b[kol]:=a[1];
FOR I := 2 TO N DO begin
k:=0;
for j:=1 to i-1 do IF a[I]=b[j] THEN k:=k+1; if k=0 then begin kol:=kol+1; b[kol]:=a[i]; end;
end;
writeln(kol);
end.
|
