Ответ: перебор всегда работает но возможно не рационален
int main()
{
SetConsoleCP(1251);// установка кодовой страницы win-cp 1251 в поток ввода
SetConsoleOutputCP(1251); // установка кодовой страницы win-cp 1251 в поток вывода
setlocale(LC_ALL, "Russian");
int mass[4][5];
int max = 0;
int count = 0;
for (int i = 0; i < 3; i++)
{
for (int j = 0; j < 4; j++)
{
mass[i][j] = rand() % 5;
cout << mass[i][j] << " ";
}
cout << endl;
}
for (int i1 = 0; i1 < 3; i1++)
{
for (int j1 = 0; j1 < 4; j1++)
{
for (int i = 0; i < 3; i++)
{
for (int j = 0; j < 4; j++)
{
if (mass[i1][j1] == mass[i][j])
{
count++;
}
}
if ((count > 1) && (mass[i1][j1] >= max))
{
max = mass[i1][j1];
}
count = 0;
}
}
}
cout << endl << max;
Program pr3;
var poroda:string;
age,holka:real;
n,i,k:integer;
begin
repeat
write ('Введите количесвто собак на выстовке: ');
readln (n);
until n>0;
k:=0;
for i:= 1 to n do
begin
writeln ('Введите по отдельности: породу, возраст и высоту холки очередной собаки: ');
readln (poroda);
readln (age);
readln (holka);
if (poroda='боксер') and (age>=2) and (age<=3) and (holka>=55) then k:=k+1;
end;
if k>0 then writeln('Число боксеров c нужным возрастом и холкой на выставке: ', k) else writeln ('Боксеров с нужными критриями навыставке не обнаружено');
end.
1.Антивирус
2.Интернет
3.Архивация
4.Клавиатура
5.Процессор
по вертикально - ВИРУС
Воспользуемся методом потетрадного перевода из двоичной системы в шестнадцатеричную. Запишем 3 группы по 4 двоичных разряда в каждой. Наименьшее число будет содержать 7 нулей в старших разрядах, а наибольшее - в младших. Каждая группа переводится как цифра в шестнадцатеричную систему.
0000 0001 1111(2) = 01F(16) = 31(10) - наименьшее число.
1111 1000 0000(2) = F80(16) = 3968(10) - наибольшее число.
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');