Ответы
Ответ дал:
0
const
n=16;
var
a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
a[i]:=0;
while True do
begin
read(k);
if (k<1) or (k>n) then break;
Inc(a[k]);
end;
k:=1;
for i:=2 to n do
if a[i]>a[k] then k:=i;
Writeln(k)
end.
Вводим пока не будет указано значение меньше 1 или больше 16.
n=16;
var
a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
a[i]:=0;
while True do
begin
read(k);
if (k<1) or (k>n) then break;
Inc(a[k]);
end;
k:=1;
for i:=2 to n do
if a[i]>a[k] then k:=i;
Writeln(k)
end.
Вводим пока не будет указано значение меньше 1 или больше 16.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад