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

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

20.12.2011, 22:27. Показов 3932. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
ПРивет, помогите пожалуйста с массивами, а то ступор..

1.дан одномерный массив Xn. Подсчитать сумму и количество положительных и отрицательных элементов массива.
2.дан одномерный массив Zn. найти второй среди элементов, значение которых попадает в интервал [A;B]
.Заменить все отрицательные элементы с четными номерами на 0. удалить последние 5 элементов.
3. Даны два одномерных массива Xn и Yn. Сформировать новый массив Zk по следующим правилам: если Xi<Yi,то Zj=0,если Xi=Yi, то Zj=Yi. Отсортировать исходный массив Xn по убыванию.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2011, 22:27
Ответы с готовыми решениями:

Найти сумму и подсчитать количество положительных и отрицательных элементов массива
в массиве из 12 челых чисел найти сумму и подсчитать количество положительных и отрицательных...

В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов
Помогите. Вот задача - Разделение по знаку. В массиве С(n) подсчитать количество отрицательных и...

Подсчитать количество положительных и отрицательных элементов массива
Вариант 1 1. Заполнить с клавиатуры массив из 10 элементов. Подсчитать количество положительных и...

Подсчитать количество положительных и сумму отрицательных элементов массива
Подсчитать количество положительных и сумму отрицательных элементов массива А, состоящего из 11...

2
24 / 24 / 22
Регистрация: 16.12.2011
Сообщений: 50
20.12.2011, 23:28 2
Лучший ответ Сообщение было отмечено Vaneska как решение

Решение

№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
32
{дан одномерный массив Xn. Подсчитать сумму и количество положительных и отрицательных элементов массива}
var
  x: array[1..100] of integer;
  i: integer;
  n: integer;
  sum_p, sum_o: integer;
  k, l: integer;
  nul:integer;
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  for i := 1 to n do x[i] := random(10) - 5;
  for i := 1 to n do
    if x[i] > 0 then begin
      inc(k);
      sum_p := sum_p + x[i];
    end
    else begin
      inc(l);
      sum_o := sum_o + x[i];
    end;
  //Если в массиве содержаться нули  
  for i:=1 to n do 
    if x[i]=0 then inc(nul);
  if nul>0 then writeln('В массиве содержаться нули, их общее количество равно: ',nul);
  writeln('Исходный массив: ');
  for i:=1 to n do write(x[i],' ');
  writeln;
  writeln('Количество положительны равно: ', k, ' ,сумма равна: ', sum_p);
  writeln('Количество отрицательны равно: ', l, ' ,сумма равна: ', sum_o); 
end.
№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
{2.дан одномерный массив Zn. найти второй среди элементов, значение которых попадает в интервал [A;B]
.Заменить все отрицательные элементы с четными номерами на 0. удалить последние 5 элементов.}
var
  a,b: array[1..100] of integer;
  i: integer;
  n: integer;
  isk_elem, p: integer;
  h, l: integer; //интервал
begin
  randomize;
  writeln('Введите количество элементов массива: ');
  readln(n);
  writeln('Введите интервал от A до B: ');
  readln(h, l);
  for i := 1 to n do a[i] := random(10) - 5;
  //Поиск элемента в интервале
  for i := 1 to n do 
    if (a[i] >= h) and (a[i] <= l) then begin
      inc(p);
      if p = 2 then begin
        isk_elem := a[i];
        break;
      end;
    end;
  writeln('Исходный массив: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  if p=2 then writeln('Второй элемент попдающий в интервал равен: ',isk_elem) else writeln('В массиве нет элемента содаржащегося в интервале!');
  writeln('Массив после замены отрицательных элементов с четными номерами на 0: ');
  //Заменена всех отрицательных элементов с четными номерами на 0
  for i:=1 to n do 
    if (a[i]<0) and (i mod 2=0) then a[i]:=0;
  for i:=1 to n do write(a[i],' ');
  writeln;
  for i:=1 to n-5 do begin
    b[i]:=a[i];
  end;
  a:=b;
  writeln('После удаления последних пяти элементов массива: ');
  for i:=1 to n-5 do write(b[i],' ');
end.
Добавлено через 23 минуты
№3
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
{ Даны два одномерных массива Xn и Yn. Сформировать новый массив Zk по следующим правилам: 
если Xi<Yi,то Zj=0,если Xi=Yi, то Zj=Yi. Отсортировать исходный массив Xn по убыванию.}
var
  x, y, z: array[1..100] of integer;
  i, j: integer;
  n,m: integer;
  buf:integer;
begin
  randomize;
  writeln('Введите количество элементов массивов: ');
  readln(n);
  m:=n;
  //Заполняем массивы
  for i := 1 to n do x[i] := random(10) - 5;
  for i := 1 to n do y[i] := random(10) - 5;
  writeln('Исходный массив X: ');
  for i:=1 to n do write(x[i],' ');
  writeln;
  writeln('Исходный массив Y: ');
  for i:=1 to n do write(y[i],' ');
  writeln;
  //Формируем новый массив
  for i := 1 to n do
    if x[i] < y[i] then begin
      inc(j);
      z[j] := 0;
    end;
  for i := 1 to n do
    if x[i] = y[i] then begin
      inc(j);
      z[j] := y[i];
    end;
  writeln('Сформированный массив: ');
  for i := 1 to j do write(z[i], ' ');
  writeln;
  //Сортировка массива X
  n := j;
  for i := 1 to m - 1 do
    for j := 1 to m - i do 
      if x[j]<x[j+1] then begin
        buf:=x[j];
        x[j]:=x[j+1];
        x[j+1]:=buf;
      end;
  for i:=1 to m do write(x[i],' ');
end.
вроде всё правильно
2
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 4
20.12.2011, 23:31  [ТС] 3
Спасибо огромное)
0
20.12.2011, 23:31
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2011, 23:31
Помогаю со студенческими работами здесь

В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов
В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов

Подсчитать количество положительных и отрицательных элементов массива
Написать программу которая создает массив из N чисел и с помощью функции подсчитывает кол-во...

Подсчитать количество положительных и отрицательных элементов массива
Ввести массив а(10). Подсчитать колличество положительных и отрицательных элементов массива

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

Дан двумерный массив [1.3,1.7] . В процедуре подсчитать сумму положительных и сумму отрицательных элементов массива
Пожалуйста помогите .Дан двумерный массив . В процедуре подсчитать сумму положительных и сумму...

Подсчитать количество отрицательных и сумму положительных элементов массива
В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов.


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

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

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