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

Вводится последовательность из N целых чисел

15.06.2013, 19:25. Показов 2884. Ответов 1
Метки нет (Все метки)

1. Вводится последовательность из N целых чисел. Определить сумму всех отрицательных чисел и сколько введено нулей.Нужен код на паскале
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2013, 19:25
Ответы с готовыми решениями:

Пусть вводится последовательность из целых чисел
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найти 2 наибольших числа...

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

с клавиатуры вводится последовательность из целых чисел, 0-конец последовательности
с клавиатуры вводится последовательность из целых чисел, 0-конец последовательности. в случае...

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

1
23 / 23 / 18
Регистрация: 28.06.2012
Сообщений: 58
15.06.2013, 19:30 2
Лучший ответ Сообщение было отмечено Ioffe как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var n,i,s,k,c:integer;
begin
 Write('Введите N: ');
 ReadLn(n);
 s:=0;
 k:=0;
 for i:=1 to n do
  begin
   Write('Введите ',i,' число: ');
   ReadLn(c);
   if c<0 then s:=s+c;
   if c=0 then inc(k);
  end;
WriteLn('Сумма отрицательных чисел: ',s);
WriteLn('Количество нулей: ',k);
ReadKey;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2013, 19:30

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вводится последовательность положительных целых чисел, за которой следует 0 .
Вводится последовательность положительных целых чисел, за которой следует 0 (признак конца...

Вводится N чисел. Определить сколько среди них целых чисел
Вводится N чисел. Определить сколько среди них целых чисел. Заранее спасибо!

Вводится последовательность ненулевых чисел. 0 конец
определить является ли последовательность возрастающей

С клавиатуры вводится последовательность натуральных чисел
С клавиатуры вводится последовательность натуральных чисел. Признак конца ввода- отрицательное...


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

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

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