Решение: Из списка видно, что используются только символы: "А", "О", "У". Пусть "А"=0, "О"=1, "У"=2.
Список после замены станет таким:
00000 00001 00002 00010Видно, что это числа идущие по порядку от нуля в троичной системе. В десятичной системе счисления список бы был таким: 0, 1 , 2, 3
Нам нужно найти, какое число будет стоять на 240 месте. Т.к. список чисел начинается с нуля, следовательно, нам нужно перевести число 239 в троичную систему счисления:
239 | 3
21 79 | 3
29 6 26 | 3
27 19 24 8 | 3
2 18 2 6 2
1 2
Перепишем полученное число: 222123. Переведем обратно в символы: УУУОУ.
program noname;
uses crt;
var
a:array[1..1000,1..1000] of integer;
i,j,min,n,m,l:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
writeln;
for i:=1 to n do begin
min:=0;
for j:=1 to m do
if min>a[i,j] then begin min:=a[i,j]; l:=j; end;
if min<>0 then
writeln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)
else writeln ('v ',i,' stroke otricatelnyh chisel net');
end;
readkey;
end.
var c:array[1..n] of integer;
a,b,i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
c[i]:=random(51);
write(c[i]:4);
end;
writeln;
write('a = '); readln(a);
write('b = '); readln(b);
s:=0; k:=0;
for i:=1 to n do
if (c[i]>=a)and(c[i]<=b) then k:=k+1;
writeln('k = ',k);
end.
Пример (для n=10):
21 9 39 45 36 35 39 7 23 5
a = 20
b = 30
k = 2