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

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

26.12.2009, 13:35. Показов 723. Ответов 3
Метки нет (Все метки)

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

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
program zadanie2;
type massiv=array[1..100]of integer;
var x,y:massiv;
    i,kolot,kolpol,n,m:integer;
procedure vvod(a:massiv;e:integer);
var i:integer;
begin
randomize;
for i:=1 to e do
a[i]:=random(100)-50;
end;
procedure vivod(a:massiv;e:integer);
var i:integer;
begin
for i:=1 to e do
write(a[i],' ');
end;
procedure koll(a:massiv;e:integer);
var i:integer;
begin
for i:=1 to e do
if a[i]>0 then
kolpol:=kolpol+1 else
kolot:=kolot+1;
end;
begin
write('введите размерность массива y N= ');
readln(n);
write('введите размерность массива x M= ');
readln(m);
kolpol:=0;
kolot:=0;
vvod(y,n);
vvod(x,m);
vivod(y,n);
vivod(x,m);
koll(y,kolpol);
koll(y,kolot);
koll(x,kolpol);
koll(x,kolot);
end.
Добавлено через 2 минуты
4. Составить программу упорядочивания последовательности 4 данных чисел x,y,z,t по убыванию с использованием подпрограммы-процедуры упорядочивания.


7. Составить программу, которая преобразует массивы А(1..7) и В(1..10) следующим образом: до минимального элемента упорядочивает по возрастанию, а после него – по убыванию. Учесть, что в каждом из массивов значения элементов не повторяются.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2009, 13:35
Ответы с готовыми решениями:

Составить программу, которая определяет количество положительных элементов до последнего нулевого элемента
РЕБЯТ,ППОМОГИТЕ ПОЖАЛУЙСТА 1)Составить программу для нахождения суммы минимального и максимального...

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

Найти среднее арифметическое положительных чисел массива и количество отрицательных до последнего нулевого значения
В массиве М найти среднее арифметическое положительных чисел и количество отрицательных до...

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

3
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.12.2009, 13:57 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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program zadanie2;
uses crt;
type massiv=array[1..100]of integer;
procedure vvod(var a:massiv;var e:integer;c:char);
var i:integer;
begin
write('введите размерность массива ',c,':  ');
readln(e);
for i:=1 to e do
a[i]:=random(10)-5;
end;
procedure vivod(var a:massiv;e:integer;c:char);
var i:integer;
begin
writeln('Массив ',c);
for i:=1 to e do
write(a[i],' ');
writeln;
writeln;
end;
procedure koll(a:massiv;e:integer;var kolpol,kolot:integer);
var i,j:integer;
    f:boolean;
begin
j:=0;
i:=e;
while (i>=1)and(j=0) do
if a[i]=0 then j:=i else i:=i-1;
if j=0 then writeln('В массиве нет нулевого элемента!')
else
 begin
  writeln('Индекс последнего нулевого элемента=',j);
  kolpol:=0;
  for i:=1 to j-1 do
  if a[i]>0 then inc(kolpol);
  kolot:=0;
  for i:=j+1 to e do
  if a[i]<0 then inc(kolot);
  writeln('Количество положительных элементов=',kolpol);
  writeln('Количество отрицательных элементов=',kolot);
 end;
end;
 
 
var x,y:massiv;
    i,ko,kp,n,m:integer;
begin
clrscr;
randomize;
vvod(y,n,'Y');
vvod(x,m,'X');
clrscr;
vivod(y,n,'Y');
koll(y,n,kp,ko);
vivod(x,m,'X');
koll(x,m,kp,ko);
readln
end.
1
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 63
26.12.2009, 14:02  [ТС] 3
она же не выводит колличество минимального и максимального элемента
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.12.2009, 14:19 4
Цитата Сообщение от m@l@a Посмотреть сообщение
которая определяет количество положительных элементов до последнего нулевого элемента и количество отрицательных после него в массивах
Где здесь максимальный и минимальный элемент?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2009, 14:19
Помогаю со студенческими работами здесь

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

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

Вывести на экран сумму, произведение и номера положительных элементов одномерного массива после последнего нулевого элемента
Помогите пожалуйста решить задачи, очень нужно 1. Вывести на экран сумму, произведение и номера...

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


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

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

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