Вопрос по информатике:
Информатика. Паскаль.
Подсчитать количество отрицательных элементов одномерного массива
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.04.2015 15:24
- Информатика
- remove_red_eye 4740
- thumb_up 44
Ответы и объяснения 2
uses crt; {Нужно для очистки экрана, писать не обязательно}
var i, n, count: integer;
a:array [1..50] of real;
begin
clrscr;
write('n= '); readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]<0 then count:=count+1;
writeln('В вашем массиве ', count, ' отрицательных элементов');
readln;
end.
- 06.04.2015 02:15
- thumb_up 38
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Отрицательных элементов- ',a.Where(x->x<0).Count)
end.
Пример
n= 15
27 46 -29 -31 28 49 18 16 -5 -11 -20 30 -33 -14 41
Отрицательных элементов- 7
- 07.04.2015 12:33
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.