Регистрация
Tramontino
19.04.2021 19:39
Информатика
Есть ответ 👍

3. Назовите основные структурные единицы текстового документа.
4. В чём основные преимущества «компьютерной» технологии создания текстовых документов перед «бумажной» технологией?
5. Назовите основные разновидности компьютерных инструмен-
тов создания текстовых документов.​

120
194
Посмотреть ответы 1

Ответы на вопрос:

algebraigeometria1
algebraigeometria1
4,5(57 оценок)

без массива:

program n_1;

var a, b, i, n: integer;

begin

    a: =0; b: =0;

    for i: =1 to 15 do begin

        read(n);

        if n mod 2 = 1 then a: =a+1

 
      else b: =b+1;

    end;

    if a> b then writeln('нечетных чисел больше, чем четных')

    else writeln('четных чисел больше, чем нечетных');

end.

с массивом:

program n_1;

var a, b, i:
integer; n: array [1..15] of integer;

begin

    a: =0; b: =0;

    for i: =1 to 15 do begin

        read(n[i]);

        if n[i] mod 2 = 1 then a: =a+1

        else
b: =b+1;

    end;

    if a> b then writeln('нечетных чисел больше, чем четных')

    else writeln('четных чисел больше, чем нечетных');

end.

но честно, не вижу смысла использовать массив.

Популярно: Информатика