Var
a:array [1..10000] of integer;
i,n,a_max,c;
begin
read(n);
a_max:=0;
c:=0;
for i:=1 to n do
begin
a[i] := random(100); // автозаполнение массива
print(a[i]);
if a[i]>a_max then a_max:=a[i]; // поиск максимального элемента
end;
writeln;
for i:=1 to n do
if a[i]=a_max then inc(c); // поиск повторяющихся элементов
if c>=2 then write(a_max)
else write(-1);
end.
Возможно, имеется в виду вот это:
12/2=6?
Про алгоритм говорят - выполнить, а про задачу - решить.
Для буквы Т нужно использовать кодовое слово 00101
Оно отличается:
от А = 10000 в трёх позициях (1-й, 3-й, 5-й),
от И = 11110 в четырёх позициях (1-й, 2-й, 4-й, 5-й),
от С = 01011 в трёх позициях (2-й, 3-й, 4-й)
Насчёт вариантов ответа - затрудняюсь сказать...
А кг- b руб
z кг- ? руб
По свойству пропорции
?= (z*b ) /a руб.
Сложно . В каком ты классе