Помогите пожалуйста-20,,,,,,,,,,,
Dreammer [7]
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.
a) нет переменной b
b) После команды «Спросить переменную b» изменить переменную а на b и запустить программу.
Объяснение:
Или это v, т.е. дизъюнкция.
И это ^, т.е. конъюнкция.
P.S. ЗНАК КОНЪЮНКЦИИ У МЕНЯ НЕ СТОИТ, НО ОН ВЫПОЛНЯЕТ СВОИ ДЕЙСТВИЯ, У СЕБЯ В ТАБЛИЦЕ СТАВЬТЕ ЕГО!