Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
2 / 2 / 0
Регистрация: 19.11.2009
Сообщений: 37
1

Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу

19.11.2009, 14:48. Просмотров 1453. Ответов 1
Метки нет (Все метки)

Дан массив вещественных чисел.Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2009, 14:48
Ответы с готовыми решениями:

Найти среднее арифметическое элементов массива, предшествующих первому нулевому элементу
Доброго времени суток, форумчане! Столкнулся с проблемой в коде программы, задание такое: Дан...

Найти сумму элементов массива, предшествующих первому отрицательному элементу
Дан массив Х(n). Найти сумму элементов массива, предшествующих первому отрицательному элементу....

Найти среднее арифметическое элементов предшествующих первому отрицательному элементу
найти среднее арифмитическое элементов предшествующих первому отрицательному элементу. чёт у меня...

в массиве х(10) найти среднее арифметическое предшествующих первому положительному элементу. только массив выводитБ больше ничё не делает
в массиве х(10) найти среднее арифметическое предшествующих первому положительному элементу. ...

1
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
19.11.2009, 15:06 2
Лучший ответ Сообщение было отмечено 239sux как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,c,s,p:integer;
  res:real;
  fl:boolean;
{îñíîâíàÿ ïðîãðàììà}
begin
  fl:=true;
  s:=0;
  c:=0;
  p:=1;
  writeln('Ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    if a[i]=0 then
      fl:=false;
    if fl then
    begin
      inc(s,a[i]);
      inc(c);
      p:=p*a[i]
    end;
    write(a[i]:2,' ')
  end;
  writeln(']');
  if s<>0 then
  begin
    res:=s/c;
    writeln('Ñð.àð. = ',res,'. Ïðîèçâåäåíèå = ',p)
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2009, 15:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому...

Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива
Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому...

Найти сумму и количество положительных элементов, предшествующих первому нулевому элементу массива
. Дан массив А(10). Найти сумму и количество положительных элементов, предшествующих первому...

Найти сумму и количество положительных элементов массива, предшествующих первому нулевому элементу (C++ -> Python)
int A = {1,2,3,-4,0,6,7,8,9,10}; int sum = 0, count = 0; for (int i = 0; i &lt; 10; ++i) ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.