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

@Айдана_94 · Регистрация: 04.04.2013

Author24 — интернет-сервис помощи студентам

Дан элементы файла, содержащий натуральное(real) числа найти
а) максимальный элемент
б) минимальный элемент
в) четные
г) нечетные

Добавлено через 20 минут
элемент файла состоит из точных чисел сколько четный и нечетных чисел

Комментарий модератора

Real - это тип, задающий вещественные, а не натуральные числа. Натуральное число - это целое число, большее нуля. Такому числу соответствуют целочисленные типы: Byte, Word, Integer, Longint при условии, что значение больше нуля.

@hOlyNeKo · 18.04.2013, 20:46

Pascal

var n, max, min, cEven, cOdd: longint;
begin
    assign(input, 'input.txt');
    reset(input);
    max := -2147483648;
    min := 2147483647;
    cEven := 0;
    cOdd := 0;
    while not eof do begin
        read(n);
        if n > max then max := n;
        if n < min then min := n;
        if n div 2 = 0 then inc(cEven)
            else inc(cOdd);
    end;
    writeln('Минимальное число = ', min);
    writeln('Максимальное число = ', max);
    writeln('Чётных чисел = ', cEven);
    writeln('нечётных чисел = ', cOdd);
    readln;
end.

@Айдана_94 · 18.04.2013, 22:20 **[ТС]**

у меня четные и нечетные числа равны 0

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

@hOlyNeKo · 18.04.2013, 22:29

А содержимое файла какое?

@Айдана_94 · 18.04.2013, 22:34 **[ТС]**

@hOlyNeKo · 18.04.2013, 22:43

Стоп, по задаче вам надо сделать ввод из файла

Сообщение от Айдана_94

Дан элементы файла

Если нет, то удалите строки

Pascal

1 2	assign(input, 'input.txt'); reset(input);

и вводите числа через пробел с клавиатуры

@Айдана_94 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 25
	18.04.2013, 22:20 [ТС]	3
	у меня четные и нечетные числа равны 0 0

@hOlyNeKo 0 / 0 / 2 Регистрация: 18.04.2013 Сообщений: 20
	18.04.2013, 22:29	4
	А содержимое файла какое? 0

@Айдана_94 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 25
	18.04.2013, 22:34 [ТС]	5
	0

	18.04.2013, 22:43

Опции темы