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

Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента.

23.12.2009, 08:03. Показов 873. Ответов 3
Метки нет (Все метки)

1. Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента.
2. Дан массив А(16). Найти Произведение элементов между первым и последними нулями.
3. Дан массив F(10). Определить количество элементов больше третьего элемента массива, между вторым и пятым положительными элементами.
4. Дан массив R(13). Все четные отрицательные элементы увеличить на значение последнего элемента, а все положительные умножить на значение первого элемента.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2009, 08:03
Ответы с готовыми решениями:

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

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

Найти сумму отрицательных элементов, находящихся после первого нулевого элемента
в одномерном массиве A(N) (N<=50) найти сумму отрицательных элементов находящихся после первого...

Найти среднее арифметическое отрицательных элементов массива, расположенных после первого нулевого элемента
Здравствуйте. Разработайте пожалуйста программу, в которой нужно ввести одномерный массив X ,...

3
46 / 38 / 3
Регистрация: 14.12.2009
Сообщений: 272
23.12.2009, 09:03 2
вот как-то так чувак, это 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
29
30
31
program h1;
uses crt;
var z:array[1..17] of integer;
    n,i,k: integer;
begin
clrscr;
writeln('vvedite z:');
for i:=1 to 17 do
begin
  writeln('z[',i,']');
  read(z[i]);
end;
writeln('z[i]');
writeln;
for i:=1 to 17 do
 write(z[i], ' ');
 
n:=0;
k:=0;
for i:=1 to 17 do
begin
if (z[i]=0) and (n<>3) then
inc(n);
if (n=3) and (z[i]<0) then
inc(k);
end;
writeln;
writeln('k: ',k);
readln;
readln;
end.
Добавлено через 16 минут
вот второе:
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 h1;
uses crt;
var a:array[1..16] of integer;    
    n,i,k,s: integer;
begin
clrscr;
writeln('vvedite z:');
for i:=1 to 16 do
begin
  writeln('a[',i,']');
  read(a[i]);
end;
writeln('a[i]');
writeln;
for i:=1 to 16 do
 write(a[i], ' ');
 
n:=0;
k:=0;
s:=1;
for i:=1 to 16 do
if (a[i]=0) then
n:=i;
 
for i:=16 downto 1 do
if a[i]=0 then
k:=i;
 
for i:=k+1 to n-1 do
s:=s*a[i];
writeln;
writeln('s: ',s);
readln;
readln;
end.
0
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 37
23.12.2009, 10:05  [ТС] 3
Друг бологадорю но как через while они делаются?
0
46 / 38 / 3
Регистрация: 14.12.2009
Сообщений: 272
23.12.2009, 10:55 4
щас зделаю

Добавлено через 44 минуты
вот так будит, это 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
program h1;
uses crt;
var a:array[1..16] of integer;
   
    n,i,k,s: integer;
begin
clrscr;
writeln('vvedite z:');
for i:=1 to 16 do
begin
  writeln('a[',i,']');
  read(a[i]);
end;
writeln('a[i]');
writeln;
for i:=1 to 16 do
 write(a[i], ' ');
 
s:=1;
i:=1;
while a[i]<>0 do
inc(i);
n:=i;
 
i:=16;
while a[i]<>0 do
dec(i);
k:=i;
 
 
while n<k-1 do
begin
inc(n);
s:=s*a[n];
end;
writeln;
writeln('s: ',s);
readln;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2009, 10:55
Помогаю со студенческими работами здесь

Найти количество элементов массива, расположенных после первого нулевого элемента
Задан массив целых чисел Х(n). Найти количество элементов массива, расположенных после первого...

Найти сумму и количество элементов в массиве А после первого нулевого элемента
Дан массив А. Найти сумму и количество элементов в массиве А после первого ненулевого элемента.

В массиве x1, x2 . x25 найти макс элемент среди элементов расположенных после третьего нулевого
1. В массиве x1, x2 ... x25 найти макс элемент среди элементов расположенных после третьего...

Дан массив из n элементов, найти количество отрицательных чисел
Дан массив из n элементов, найти количество отрицательных чисел.


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

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

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