0 / 0 / 0
Регистрация: 10.12.2014
Сообщений: 3
1

Два ноля подряд в массиве

10.12.2014, 18:24. Показов 453. Ответов 1
Метки нет (Все метки)

Дан массив , если идут подряд 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
program lalala;
const n=5;
type julia=array[1..n] of real;
var a:julia;k,i:integer;p:real;
begin
k:=0;
p:=1;
write('Введите элементы массива');
writeln;
for i:=1 to n do
read(a[i]);
writeln;
begin
for i:=1 to n do
if (a[i]=0) and (a[i+1]=0) then 
if a[i]<0 then
inc(k)
else 
begin
if a[i]>0 then 
p:=p*a[i];
end;
end;
writeln('kolvo' ,k);
writeln('proizv', p);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2014, 18:24
Ответы с готовыми решениями:

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

Суммы в массиве до ноля
Составить программу с помощью паскаль.Имеется массив A из N произвольных чисел-A(N), среди которых...

Выяснить, имеются ли в данном массиве два идущих подряд положительных элемента
Помогите решить пожалуйста!!! буду очень благодарна) Дан массив действительных чисел а1,…, аn....

Выяснить, имеются ли в данном массиве два идущих подряд положительных элемента. Подсчитать число таких пар
Всем доброе время суток! Очень нужна помощь! Дан массив действительных чисел а1,…, аn....

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
10.12.2014, 18:50 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
40
41
42
43
program lalala;
const n=5;
type julia=array[1..n] of real;
var a:julia;
    b,k,i:integer;
    p:real;
begin
k:=0;
p:=1;
write('Введите элементы массива');
writeln;
for i:=1 to n do
read(a[i]);
writeln;
b:=0;
i:=1;
while(i<n)and(b=0) do
if (a[i]=0) and (a[i+1]=0) then b:=1
else inc(i);
if b=1 then
 begin
  writeln('Есть два 0 подряд');
  k:=0;
  for i:=1 to n do
  if a[i]<0 then inc(k);
  writeln('Количество отрицательных=',k);
 end
else
 begin
  writeln('Нет двух 0 подряд');
  p:=1;
  k:=0;
  for i:=1 to n do
  if a[i]>0 then
   begin
    k:=1;
    p:=p*a[i];
   end;
  write('Произведение положительных=');
  if k=0 then write(0)
  else write(p)
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2014, 18:50
Помогаю со студенческими работами здесь

Проверить два идущих подряд нуля в массиве
Как правильно проверить два идущих подряд нуля в массиве? Чтобы при выполнении условия один массив...

Определить, есть ли в массиве два нулевых элемента подряд
Дан массив целых чисел. Определить, есть ли в массиве два нулевые элементы, которые расположены...

Имеется ли в целочисленном массиве два идущих подряд нуля?
Имеется ли в целочисленном массиве два идущих подряд нуля? Ответ вывести в виде &quot;ДА&quot; или &quot;НЕТ&quot;...

Найти в массиве слов два нуля, идущих подряд
Задача такова: Знайти чи є в масиві два нулі, що йдуть підряд. Масив слів. Работаю в emu8086....

Определить, имеются ли в массиве два подряд идущих нуля
Дан одномерный массив числовых значений, насчитывающий N элементов. Определить, имеются ли в...

Определить, имеются ли в массиве два подряд идущих нулевых элемента
Одномерный массив из 8 элементов. - Заполнить с клавиатуры - Определить, имеются ли в массиве...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru