Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
1

Найти произведение элементов массива после последнего элемента, равного нулю

11.01.2011, 13:36. Просмотров 1163. Ответов 7
Метки нет (Все метки)

помогите розобраться .я поменял в проге
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
program elments;
const n=10;
 
  var
 
   a:array[1..n] of integer;
 
   i,kol,p,m:integer;
 
begin
 
kol:=0;     m:=0;
 
for i:=1 to n do
 
begin
 
read(a[i]);
 
if a[i]>0 then kol:=kol+1;
 
if a[i]=0 then p:=i;
 
end;
 
for i:=p to n do
 
m:=m+a[i];
 
 
 
writeln('количество позитивных елементов',kol);
 
writeln('результат умножения елементов масива,  после последнего елемента, ровного нолю. =',m);
end.

m:=m+a[i] на m:=m*a[i] и у меня результат умножения у все случая =0
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2011, 13:36
Ответы с готовыми решениями:

Найти сумму элементов массива, расположенных после последнего элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1. Количество...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1) минимальный по модулю...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов...

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

7
141 / 135 / 69
Регистрация: 15.12.2009
Сообщений: 344
11.01.2011, 13:54 2
напиши задание
0
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
11.01.2011, 14:14  [ТС] 3
в одномерном масиве который складаиться с n елементов . 1 найти количество позитивных елементов.
2 результат умножения елементов масива, размещонных после последнего елемента, ровного нолю
0
2854 / 1983 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
11.01.2011, 14:30 4
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
Uses
 CRT;
Var
 i,kol,n,ind:integer;
 pr:real;
 a:array[1..20] of integer;
begin
randomize;
readln(n);
kol:=0;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if a[i]>0 then
   inc(kol);
end;
writeln;
writeln('Kol:=',kol);
pr:=1;
ind:=0;
for i:=n downto 1 do
 if a[i]<>0 then
  pr:=pr*a[i]
 else
 begin
  ind:=i;
  break;
 end;
if (ind<>0) and (ind<>n) then
 write('Pr:=',pr)
else
 write('Нет нулей.Или он последний');
readkey;
end.
1
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
11.01.2011, 14:44  [ТС] 5
SuPeR XaKer по ходу ето не то
0
2854 / 1983 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
11.01.2011, 14:59 6
что не то?
0
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
11.01.2011, 15:08  [ТС] 7
а я понял super xacer извини
0
10 / 10 / 0
Регистрация: 05.01.2011
Сообщений: 151
11.01.2011, 19:38  [ТС] 8
super xaker посмотрите пож. на алгоритм может етой проги может правельний
0
Вложения
Тип файла: doc alg kr1.doc (35.0 Кб, 8 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2011, 19:38

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

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
сумму модулей элементов массива, расположенных после первого элемента, равного нулю

Найти сумму элементов массива, расположенных после последнего элемента,равного нулю
Помогите разобраться с задачей (Найти сумму элементов массива, расположенных после последнего...

Найти сумму элементов массива, расположенных после последнего элемента, равного нулю
Было задание : В одномерном массиве , состоящем из п действительных элементов , вычислить :...

Найти сумму элементов массива расположенных после последнего элемента равного нулю
в одномерном массиве, состоящем из п целых элементов, вычислить: 2) сумму элементов массива,...


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

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

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