Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Balashovec
0 / 0 / 0
Регистрация: 01.03.2009
Сообщений: 57
#1

Найти сумму положительных и произведение отрицательных элементов массива - Pascal

01.03.2009, 19:03. Просмотров 757. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить задачки на массив в паскале :
1-В массиве A(N) содержатся положительные и отрицательные элементы.Найти сумму положительных и произведение отрицательных элементов.
помогите пожалуста я новичёк пишите всю программу ..........заранее благодарю...........
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.03.2009, 19:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти сумму положительных и произведение отрицательных элементов массива (Pascal):

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

Найти сумму положительных и произведение отрицательных элементов матрицы - Pascal
ЦЕЛЬ РАБОТЫ. Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, Исходные данные задать самостоятельно,...

Найти суму (произведение) положительных (отрицательных) элементов массива - Pascal
Найти суму (произведение) положительных (отрицательных) элементов массива

В одномерном массиве найти сумму отрицательных, количество положительных и произведение не нулевых элементов - Pascal
Всем доброго времени суток. Задали сделать лабораторные работы, но вот незадача, простые я смог выполнить а с массивом и так и сяк, не как...

Найти произведение количества отрицательных элементов и количество положительных элементов массива - Pascal
Прошу помощи. Задание: Задан одномерный, целочисленный массив A(n), (n<=40).Найти произведение количества отрицательных элементов и...

Найти сумму положительных и отрицательных элементов массива - Pascal
помогите решить: Найти сумму положительных и отрицательных элементов массива X(11) Добавлено через 47 минут проверти и исправите...

3
schdub
3012 / 1357 / 265
Регистрация: 19.01.2009
Сообщений: 3,598
Завершенные тесты: 1
01.03.2009, 19:37 #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
uses CRT;
 
const N=10;
 
var A            : array[1..N] of integer;
    poloj, otric : integer;
    i            : integer;
 
begin
 
  ClrScr; {чистим экран}
 
  {вводим элементы в массив с клавиатуры}
  for i:=1 to n do
  begin
    Write('Введите ',i,'-й элемент массива : ');
    ReadLn(A[i]);
  end;
  
  ClrScr; {чистим экран еще раз, чтобы избавиться от пользовательского ввода}
  
  {и выводим весь массив}
  for i:=1 to n do
    Write(A[i]:4, ' ');
    
  WriteLn;
  WriteLn;
  WriteLn;    
    
  { ОСНОВНОЙ АЛГОРИТМ }
  otric := 0;
  poloj := 0;
  for i:=1 to N do
    if A[i]<0 then 
    begin
      {отрицательное}
      if otric=0 then
         otric := A[i]
      else
         otric := otric * A[i];
    end
    else
        if A[i]>0 then
    begin
      {положительное}
      poloj := poloj + A[i];
        end;
 
 
  WriteLn('Сумма положительных элементов данного массива : ', poloj);
  WriteLn('Произведение отрицательных элементов  массива : ', otric);
 
  ReadLn;
end.
2
Balashovec
0 / 0 / 0
Регистрация: 01.03.2009
Сообщений: 57
01.03.2009, 20:56  [ТС] #3
спасибо большое

Добавлено через 3 минуты 44 секунды
xitNightMare, большое спасибо
0
schdub
3012 / 1357 / 265
Регистрация: 19.01.2009
Сообщений: 3,598
Завершенные тесты: 1
01.03.2009, 20:59 #4
Цитата Сообщение от Balashovec Посмотреть сообщение
спасибо большое

Добавлено через 3 минуты 44 секунды
xitNightMare, большое спасибо
А кнопочку нажать
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.03.2009, 20:59
Привет! Вот еще темы с ответами:

найти сумму положительных элементов массива и произведение отрицателных - Pascal
Друзья,помогите пожалуйста с составлением программы в Pascal. Требования такие: найти сумму положительных элементов массива и...

Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел - Pascal
заранее всем спасибо буду признателен за любую помощь

Найти произведение минимального элемента на сумму положительных элементов двумерного массива - Pascal
Найти произведение минимального элемента на сумму положительных элементов двумерного массива. Только без рандомайза.

Подсчитайте произведение положительных элементов массива и количество отрицательных - Pascal
Введите с клавиатуры одномерный массив А(N), элементами которого являются положительные и отрицательные целые числа. Подсчитайте...


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

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

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