Помогите пожалуйста-20,,,,,,,,,,,

0 голосов
11 оценили
спросил от (14 баллов) в категории Информатика

Помогите пожалуйста-20,,,,,,,,,,,


image

1 Ответ
0 голосов
ответил от Одаренный (2.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.

...