Составьте программу вычисления количества нечетных элементов массива

@Люся · Регистрация: 11.02.2013

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

Составьте программу вычисления количества нечетных элементов массива А(10), стоящих на четных местах. Ввод исходных данных и вывод результата осуществить через файл.

@CodeR · 27.03.2013, 11:10

Pascal

Const n=10;
Var f,g:text;
    i,m,k:integer;
    A:array[1..n] of integer;
Begin
    Assign(f,'in.txt');Reset(f);
    For i:=1 to n do
    Begin
      read(f,m);
      A[i]:=m;
    End;
    Close(f);
    Assign(g,'out.txt');Rewrite(g);
    i:=2;
    While i<=n do
    Begin
      if odd(A[i]) then inc(k);
      inc(i,2);
    End;
    writeln(g,k);
    Close(g);
    writeln('Результат в файле "out.txt"');
    readln;
End.

Предварительно нужно создать файл in.txt и заполнить его 10 числами через пробел

@Люся 0 / 0 / 1 Регистрация: 11.02.2013 Сообщений: 35
		1
	Составьте программу вычисления количества нечетных элементов массива 26.03.2013, 20:59. Показов 1448. Ответов 1 Метки нет (Все метки) Составьте программу вычисления количества нечетных элементов массива А(10), стоящих на четных местах. Ввод исходных данных и вывод результата осуществить через файл. 0

Опции темы

Составьте программу вычисления количества нечетных элементов массива

Решение