tolkina
1

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

22.06.2009, 14:19. Показов 1645. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан массив из n-элементов.Найти число отрицательных элементов и их сумму
помогите пожалуйста,плиз
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2009, 14:19
Ответы с готовыми решениями:

Дан массив элементов длины N. Найти сумму нечетных отрицательных элементов
В одном из вариантов попался данная задача. Помогите с данной задачкой. (Pascal ABC) Вопрос:...

Дан массив из n элементов и число a. Необходимо найти сумму элементов, больших данного a
С клавиатуры вводится натуральное число n (n≤100n≤100). На следующей строке через пробел вводятся n...

Дан массив натуральных чисел. Получить сумму положительных и число отрицательных элементов массива
Помогите пожалуйста написать программу в Matcade!!! Напишите программу-функцию, используя...

Дан массив A3: E8 найти сумму положительных элементов и количество отрицательных
1) в ячейках E2:E16 находится значение, найти max значение, записать в ячейку E1. 2) Дан массив ...

3
2923 / 844 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
22.06.2009, 14:33 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a:array[1..100] of integer;
     i,n,sum,k:integer;
begin
 clrscr;
 writeln('n ');
 readln(n);
sum:=0;
k:=0;
 for i:=1 to n do
  begin
  writeln('Vvedite ',i,' element ');
  readln(a[i]);
  if a[i]<0 then begin sum:=sum+a[i]; k:=k+1; end;
  end;
 
for i:=1 to n do 
 write(a[i],' ');
 writeln;
 writeln('Chislo ',k,' Summa ',sum);
 readln;
end.
1
172 / 96 / 12
Регистрация: 29.05.2009
Сообщений: 341
22.06.2009, 14:34 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program masiv;
const n:=20;
var A:array [1..n] of real;
    k,i,j:integer;
    s:real;
 
begin   repeat
        write('Размер матрицы m=');
        readln(m);
        until m in [1..n];
        k:=0;  s:=0;
        for i:=1 to m do
         
              if A[i]<0 then begin s:=s+A[i];
                                     k:=k+1;
               End;
        Writeln('Кол-во отрицательных  =  ',k);
        Writeln('Сумма отрицательных   =  ',s);
        Readln;
End.
1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.06.2009, 15:22 4
Опять я лицезрею Ваш поток неоформленных мыслей. Где объявлена переменная m? Где исходный массив? С чего он стал матрицей?

Добавлено через 1 минуту 53 секунды
И вообще, если желаете размять мозг, порешайте лучше это. Даже если неграмотно напишете, но будет хорошая идея, Вас оценят.
https://www.cyberforum.ru/post199628.html
0
22.06.2009, 15:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2009, 15:22
Помогаю со студенческими работами здесь

Дан двухмерный массив 7 на 7. Найти сумму модулей отрицательных нечетных элементов
Дан двухмерный массив 7 на 7. Найти сумму модулей отрицательных нечетных элементов.

Дан массив чисел X=(x1,x2,...,xn). Найти сумму квадратов отрицательных элементов массива.
Ребята, очень прошу, пожалуйста помогите!!! Задача: Дан массив чисел X=(x1,x2,...,xn). Найти...

Дан одномерный массив. Найти сумму индексов отрицательных элементов массива
дан одномерный массивю Найти сумму индексов отрицательных элементов массива

Дан двумерный массив. Найти сумму отрицательных элементов. Функция проверяет на отрицательность
namespace ConsoleApp4 { class Program { public static double proverka(double x)...


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

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

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