Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 19.10.2010
Сообщений: 27
1

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

14.12.2010, 20:59. Просмотров 763. Ответов 2
Метки нет (Все метки)


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

только массив выводит, больше ничё не делает



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
program proga7;
uses crt;
 var
 x:array[0..10] of integer;
 i,c,n:integer; 
 s:real;
begin
 clrscr;
 randomize;
 c:=0;
 n:=0;
  for i:=1 to 10 do
   begin
    x[i]:=random(11)-5;
    write(x[i]:4);
   end;
   
  for i:=1 to 10 do
  begin
   while x[i]<0 do
    begin
     c:=c+x[i];
     inc(n);
    end;
  end;
 s:=c/n;
 write('среднее арифмитическое s=',s:5:3);
 readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2010, 20:59
Ответы с готовыми решениями:

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

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

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

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

2
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75
14.12.2010, 21:13 2
program proga7;
uses crt;
var
x:array[0..10] of integer;
i,c,n,b:integer;
s:real;
begin
clrscr;
randomize;
c:=0;
n:=0;
for i:=1 to 10 do
begin
x[i]:=random(11)-5;
write(x[i]:4);
end;
s:=0;
for i:=1 to 10 do
if x[i]>0 then
begin
b:=i;
break;
end;
for i:=1 to b do
s:=s+x[i];
s:=s/b;
write('среднее арифмитическое s=',s:5:3);
readln;
end.

Добавлено через 40 секунд
вроде пашет я на абц написал ес что не так пиши
1
0 / 0 / 0
Регистрация: 19.10.2010
Сообщений: 27
14.12.2010, 21:20  [ТС] 3
всё работает) спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2010, 21:20

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

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

Найти среднее арифметическое положительных элементов последовательности, предшествующих первому отрицательному элементу
Дана последовательность из n вещественных чисел. Найти среднее арифметическое положительных...

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

Произведение отрицательных элементов массива, предшествующих первому положительному элементу
Найти произведение отрицательных элементов массива, предшествующих первому положительному элементу....


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

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

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