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

@Елена_В · Регистрация: 14.03.2013

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

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

@StrelokCj · 24.03.2013, 16:21

Pascal

const n=10;
var fv,rv:text;
i,s:integer;
a:array[1..n] of integer;
begin
assign(fv,'input.txt');
reset(fv);
for i:=1 to n do
    read(fv,a[i]);
close(fv);
s:=0;
for i:=1 to n do
    if (a[i] mod 2<>0) and (i mod 2=0) then s:=s+1;
assign(rv,'output.txt');
rewrite(rv);
write(rv,s);
close(rv);
end.

@Елена_В 0 / 0 / 0 Регистрация: 14.03.2013 Сообщений: 15
		1
	Составить программу вычисления количества нечетных элементов 23.03.2013, 18:06. Показов 2092. Ответов 1 Метки нет (Все метки) Составьте блок-схему алгоритма и программу вычисления количества нечетных элементов массива А(10), стоящих на четных местах. Ввод исходных данных и вывод результата осуществить через файл. 0

Опции темы

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

Решение