Найти среднее арифметическое всех нечетных элементов массива, стоящих на четных местах

24.10.2012, 00:16. **Показов** 10405. **Ответов** 1

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

получить среднее арифметическое всех нечетных элементов массива стоящих на четных местах
ааа помогите пожалуйста)в паскале надо сделать(

@ermolay · 24.10.2012, 09:47

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,s,k: integer;
begin
  randomize;
  s:=0; k:=0;
  write('Сколько элементов в массиве? ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i],' ');
    if (i mod 2=0)and(a[i] mod 2<>0) then
    begin
      s:=s+a[i];
      inc(k);
    end;
  end;
  writeln;
  if k=0 then writeln('В массиве нет элементов, удовлетворяющих условию.')
    else writeln('Искомое среднее = ',s/k:0:2);
  readln;
end.

mariaexclusive
		1
	Найти среднее арифметическое всех нечетных элементов массива, стоящих на четных местах 24.10.2012, 00:16. Показов 10405. Ответов 1 Метки нет (Все метки) получить среднее арифметическое всех нечетных элементов массива стоящих на четных местах ааа помогите пожалуйста)в паскале надо сделать(

	24.10.2012, 09:47

Опции темы

Найти среднее арифметическое всех нечетных элементов массива, стоящих на четных местах

Решение