задача

[hrusha2006]

Превед всем формучанам!!!Необходима помощь в решении задачи начинающему программитсу,суть задачи в следующем:


Даны два файла с числами. Определить, в котором больше положительных чисел.


буду очень признателен за помощь!!!

[Stilet]

А наработки показать? Или Медвед запретил пробовать?

[0479]

Хм,указали б хоть в каком языке задача нужна.Алгоритм здесь элементарный открыть два файла перевести строку в массив или же уже открыть как массив если паскаль найти по условию что числа больше нуля числа первого массива то есть из первого файла и второго то есть из второго, отсеять их в новые массивы и посчитать их длину, а затем сравнить Впринципе задача в несколько строк текста.Ну а чтоб что то конкретное получить покажите наработки.

[~~~]

что-то типо этого:

var
    k1, k2: Longint;
    x: Real;
    F: Text;
begin
    Assign(F, 'file1.txt');
    Reset(F);
    k1 := 0;
    while not EOF(F) do
    begin
         Read(F, x);
         if x > 0 then Inc(k1);
    end;
    Close(F);
    Assign(F, 'file2.txt');
    Reset(F);
    k2 := 0;
    while not EOF(F) do
    begin
         Read(x);
         if x > 0 then Inc(k2);
    end;
    Close(F);
    if k1 > k2 then WriteLn('В первом') else WriteLn('Во втором');
end.

[hrusha2006]

спасибо,я во всем разобрался=)