Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
murik
3 / 3 / 0
Регистрация: 13.03.2010
Сообщений: 78
1

Вычислить среднее арифметическое положительных элементов массива F(M)."

13.03.2010, 18:35. Просмотров 946. Ответов 1
Метки нет (Все метки)

помогите пожалуйста написать программу "Вычислить среднее арифметическое положительных элементов массива F(M)."
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2010, 18:35
Ответы с готовыми решениями:

Вычислить среднее арифметическое положительных элементов массива
Задание №6. Задан массив А размером п. Вычислить среднее арифметическое...

Вычислить среднее арифметическое всех положительных элементов массива
Написати програму, що розташовує в динамічній області пам’яті одновимірний...

Вычислить среднее арифметическое положительных элементов одномерного массива
срочно помогите, пожалуйста решить...разработать функцию для вычисления...

Для одномерного массива Х(N) вычислить сумму квадратов положительных элементов и среднее арифметическое отрицательных элементов.
помогите плиз. вот задание 1. Для одномерного массива Х(N) вычислить сумму...

Вычислить среднее арифметическое положительных элементов массива, стоящих на четных местах
Вычислить среднее арифметическое положительных элементов массива стоящих 1) на...

1
Frayerok
11 / 11 / 3
Регистрация: 19.12.2009
Сообщений: 59
13.03.2010, 23:26 2
Лучший ответ Сообщение было отмечено murik как решение

Решение

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
uses crt;
type z= array[1..100] of integer;
var kil,sum,i,n: integer; z1:z; S_ar:real;
begin clrscr; randomize;
writeln('Vvedit rozmirnist masuvu');
readln(n);
for i:=1 to n do
   begin
      z1[i]:=random(10)-5;
      write(z1[i],' ');
   end;
writeln;
kil:=0;sum:=0;
for i:=1 to n do
if z1[i]>0 then
   begin
      sum:=sum+z1[i];
      kil:=kil+1;
   end;
begin
   if kil<>0 then
      begin
         S_ar:=sum/kil;
         writeln('Seredne arifmetuchne=',S_ar);
      end
   else
      writeln('V masuvi nema dodatnih elementiv');
end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2010, 23:26

Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы.
Вычислить среднее арифметическое положительных элементов массива, имеющих...

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива
Всем приветик) Извините что так много задачек, но поймите сложновато мне с...

Вычислить среднее арифметическое положительных элементов
Вычислить среднее арифметическое положительных элементов для массивов A(N1),...


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

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

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