Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
Majestic
0 / 0 / 0
Регистрация: 30.08.2012
Сообщений: 6
1

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

30.08.2012, 14:01. Просмотров 3285. Ответов 1
Метки нет (Все метки)

2.Написать процедуру определения суммы положительных чисел одномерного массива,сумы отрицательных,а так же количества нулевых элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.08.2012, 14:01
Ответы с готовыми решениями:

Составить программу нахождения суммы положительных и количества отрицательных элементов двумерного массива А(3,5).
11. Составить программу нахождения суммы положительных и количества...

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

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

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

Составить процедуру определения суммы положительных элементов в одномерном массиве
Здравствуйте. Помогите пожалуйста составить процедуру определения суммы...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,760
Записей в блоге: 1
30.08.2012, 14:49 2
Лучший ответ Сообщение было отмечено Majestic как решение

Решение

Цитата Сообщение от Majestic Посмотреть сообщение
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
Type mas=array[1..100] of real;
Var H:mas;
    i,k,n:byte;
    s1,s2,t:real;
Procedure Mass(A:mas;n:byte;Var s1,s2:real;Var k:byte);
Var i:byte;
Begin
    s1:=0;s2:=0;k:=0;
    For i:=1 to n do
     if A[i]>0 then s1:=s1+A[i]
      else if A[i]<0 then s2:=s2+A[i]
       else inc(k);
End;
Begin
    Randomize;
    write('Введите размерность массива: ');readln(n);
    For i:=1 to n do
     Begin
      t:=Random(100)-50;
      if t<>0 then H[i]:=t/10 
       else H[i]:=t;
      write(H[i]:5:2);
     End;
    writeln;
    Mass(H,n,s1,s2,k);
    writeln('Сумма положительных: ',s1:0:2);
    writeln('Сумма отрицательных: ',s2:0:2);
    writeln('Кол-во нулевых элементов: ',k);
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.08.2012, 14:49

Если модуль суммы отрицательных больше суммы положительных элементов, заменить все отрицательные нулями
Здравствуйте! Помогите, пожалуйста, сделать блок-схему к программе. Условие....

Составьте программу вычисления суммы тех положительных элементов массива A(Q, Q), что стоят в строках, не содержащих нулевых элементов
Составьте программу вычисления суммы тех положительных элементов массива A(Q,...

Сравнить по модулю суммы положительных и отрицательных элементов массива
В 1 надо тип сумма положительных-сумма отрицательных? 1. Сравнить по модулю...


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

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

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