секунда
64MD
стандартный ввод
стандартнай вывод
Исторреnѕil
Висирь охо поклонившись своему повелителю, оказал:
Великий госулары я не знаю, печальном мое лицо или нет, но хорошо знаю, что у ворот дворца стоит
бродячий торговец со всякими диковинными товарами и еще знаю что я не могу купить у него даже самую
ничтожную безделиру. Потому что мне нечем за неё заплатить
Напишите программу, которая определит те товары, за которые сможет заплатить даже визир
Формат ввода
Вводятся строки и положительных целых чисел, записанных через запятую и пробел
Формат вывода
Выбрать строку, состоящую из наибольшего количества однозначных чисел. Если таких несколько, выбрать ту,
что встретилась раньше. Вывести однозначные числа из этой строки через пробел в том же порядке
Пример 1
Beon
Boyt
в, 26, 9, 47, 16, 2, 3, 45, 36, 3, 8
89 2 3 в
12, 3, 44, 38, 45
31, 1, 41, 17, 48, 11, 35, 39, 2, 2, 6
3, 24, 1, 2, 3, 4, 6, 25
Пример 2
BON
5 9 9 10
36
Воод
12, 5, 43, 9, 21, 2, 3, 4
24, 44, 25, 49, 49, 29, 30, 20, 9, 1
30, 8, 9, 5, 45, 50, 2, 49, 35, 46, 28, 3
Справка

Как-то так
#include <iostream>
using namespace std;
int main(){    cout << "Vvedute kol-vo ocenok" << endl;
    int n,i,a,Four,Five;    n = i = a = Four = Five = 0;
    cin >> n;
    for (i = 1; i <= n; i++)    {        cin >> a;        if (a == 4){         Four++;}  else if (a == 5)      {         Five++;      }    }    if (Four > Five){   cout << "Four" << endl;} else if (Five > Four)      {   cout << "Five" << endl;      }      else      {         cout << "Equal"<< endl;      }      cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl;    return 0;}

В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var 
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var 
i,j : integer; 
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var 
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//  
for i:=1 to n do 
begin   
for j:=1 to n do   
begin     
ar[i,j] := random(2);     
write(ar[i,j]:3);   
end;   
writeln;   
end;  
// 

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
  numb := -1; 

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца  
  begin    
//записываем в f значение 1
  //Предполагаем, что столбец одинаков
  //Если в конце обхода конкретного столбца значение f=1
  //Значит, что данный столбец одинаков
  f := 1;    
 
//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do   
begin  
//Сравниваем текущий элемент столбца, со следующим     
if (ar[i,j] <> ar[i+1,j]) then
    //Если они не равны, то изменяем значение флажка f на 0       
    f := 0;   
end; 
//Конец обхода конкретного столбца  
 
//Если столбец одинаков   
if (f = 1) then
    //то записываем его номер в numb     
    numb := j;  
end;  
//  

//Вывод результата 
if (numb <> -1) then   
writeln('Столбец №: ',numb) 
else   
writeln('Нет ни одного одинакового столбца');    
end.