Определить среднее значение нечетных положительных элементов массива

@Pretty_Girl · Регистрация: 10.11.2015

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

1)Задан одномерный массив А[1..17]. Определить среднее значение нечетных положительных элементов массива.

@TuxoH · 15.11.2015, 22:29

Pascal

var
a:array[1..17] of integer;
i,j,c:integer;
begin
writeln('Введите элементы массива');
for i:=1 to 17 do read(a[i]);
for i:=1 to 17 do 
  if (a[i]>0) and (a[i] mod 2<>0) then 
        begin
        j:=j+a[i];
        c:=c+1;
        end;
writeln('Ср.ар. ',j/c);        
end.

Добавлено через 12 минут
Соврал, сорян. Так правильней будет

Pascal

var
a:array[1..17] of integer;
i,j,c:integer;
begin
writeln('Введите элементы массива');
c:=1;
for i:=1 to 17 do read(a[i]);
for i:=1 to 17 do 
  if (a[i]>0) and (a[i] mod 2<>0) then 
        begin
        j:=j+a[i];
        c:=c+1;
        end;
if (j/c)<>0 then writeln('Ср.ар. ',j/c-1)
            else writeln('Элементы не найдены');        
end.

@Pretty_Girl 196 / 6 / 1 Регистрация: 10.11.2015 Сообщений: 171
		1
	Определить среднее значение нечетных положительных элементов массива 15.11.2015, 20:02. Показов 4109. Ответов 1 Метки нет (Все метки) 1)Задан одномерный массив А[1..17]. Определить среднее значение нечетных положительных элементов массива. 0

	15.11.2015, 22:29

Определить среднее значение нечетных положительных элементов массива

Решение