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

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

20.12.2010, 21:33. Просмотров 1033. Ответов 1
Метки нет (Все метки)


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

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
program proga7;
uses crt;
var
x:array[0..100] of integer;
i,j,n,b,l: integer; 
s:real;
begin
clrscr;
randomize;
l:=0;
n:=0;
s:=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
while ((x[i]>0) and (i<=10)) do i:=1+i;
for j:=1 to (i-1) do
inc(l);
s:=s+x[i];
s:=s/l;
writeln;
write('s=',s:5:3);
readln;
end.
Добавлено через 3 часа 1 минуту
Помогите пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2010, 21:33
Ответы с готовыми решениями:

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

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

Сумма элементов, предшествующих последнему отрицательному элементу i-й строки
Пусть дано натуральное число п и целочисленная квадратная матрица порядка п. Получите b1 , b2 ,...

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
20.12.2010, 21:42 2
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
38
39
uses crt;
var
 x:array[1..100] of integer;
 i,ind,kol: integer;
 s:real;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
x[i]:=random(10)-3;
write(x[i]:4);
end;
writeln;
ind:=0;
for i:=1 to 10 do
if x[i]<0 then
begin
 ind:=i;
 break;
end;
if ind=0 then
 writeln('Íåò îòðèöàòåëüíûõ')
else
if ind=1 then
 writeln('Ïåðåä íèì íåò ýëåìåíòîâ')
else
begin
s:=0;
kol:=0;
for i:=1 to ind-1 do
begin
 inc(kol);
 s:=s+x[i];
end;
write('sr=',s/kol);
end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2010, 21:42

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

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

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

Найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу
Дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500...

Файл: Найти сумму чисел, предшествующих первому отрицательному числу в файле
В файл записать целые числа. Найти сумму чисел, предшествующих первому отрицательному числу в...


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

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

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