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

@GAMEMASSACRE · Регистрация: 31.05.2016

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

Задать массив генератором случайных чисел в диапазоне [-10,15]. Найти среднее арифметическое элементов массива, стоящих на четных мечтах, и вывести на экране все положительные элементы.

@Joy · 17.11.2016, 09:51

Pascal

const n=10;
var
  a:array[1..n] of integer;
  i,j,k:integer;
begin
  randomize;
  writeln('Array:');
  for i:=1 to n do begin
    a[i]:=random(26)-10;
    write(a[i],' ');
    if not odd(i) then begin
      k:=k+1;
      j:=j+a[i];
    end;
  end;
  writeln;
  writeln('<S>=',j/k:0:4);
  writeln('Positive elements:');
  for i:=1 to n do
    if a[i]>=0 then write(a[i],' ')
end.

@GAMEMASSACRE 2 / 2 / 0 Регистрация: 31.05.2016 Сообщений: 89
		1
	Найти среднее арифметическое элементов массива, стоящих на чётных мечтах, и вывести все положительные элементы 17.11.2016, 09:32. Показов 2215. Ответов 1 Метки нет (Все метки) Задать массив генератором случайных чисел в диапазоне [-10,15]. Найти среднее арифметическое элементов массива, стоящих на четных мечтах, и вывести на экране все положительные элементы. 0

	17.11.2016, 09:51

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

Решение