11
ПОТОМУ ЧТО 1100 УБИРАЕМ 00 ПОЛУЧАЕТСЯ 11
1)
var
a,b : integer;
begin
readln (a,b);
if a > b then
b := a +b;<span>
writeln (a,' ',b);
end.</span>
Объяснение:
^ не стоит у меня, но действие выполняет, у себя его ставьте!
//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.
Язык в задании не указан, значит опишу алгоритм.
Объявим переменные нужные, обязательно обнулим переменную count(все переменные целочисленные)
1. Организация заполнения двумерного массива.(Из файла, руками, в исходном коде, как угодно)
2. Первый цикл от 0 до i(кол-во строк массива)
3. Внутри первого цикла еще один цикл от 0 до j(кол-во столбцов)
4. Внутри второго цикла делаем проверку вида
if (mass[i,j] == X) then
count = count + 1
5. Теперь когда все итерации будут пройдены, переменная count будет содержать значение равное кол-во элементов со значением X
6. Делаем вывод это значения.
7. Вы восхитительны!