0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 4
1

Нужно написать программу определяющую каких элементов больше положительных или отрицательных

17.12.2013, 20:41. Показов 2793. Ответов 2
Метки нет (Все метки)

Дан массив из n целых чисел. Нужно написать программу определяющую каких элементов больше положительных или отрицательных. В паскале я ноль
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 20:41
Ответы с готовыми решениями:

Определить, каких элементов массива больше - положительных или отрицательных
Ребят, срочно нужно сделать следующие программы: 1) N=15 Определить, каких элементов больше...

Определить, каких элементов больше положительных или отрицательных элементов массива
N=15 Определить, каких элементов больше положительных или отрицательных элементов массива

Определить, каких элементов в последовательности больше: положительных, отрицательных или нулей
составить программу, определяющую , какиз элементов в последовательности больше?положительных ,...

Дан файл с действительными числами. Определить каких элементов больше – отрицательных или положительных
Дан файл с действительными числами. Определить каких элементов больше – отрицательных или...

2
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
17.12.2013, 20:59 2
Лучший ответ Сообщение было отмечено KOSHAKK как решение

Решение

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
uses crt;
const n=12;
var a:array[1..n] of integer;
i,k1,k2:integer;
s:real;
BEGIN
clrscr;
for i:=1 to n do
 a[i]:=random(20)-10;
 
 for i:=1 to n do
  write(a[i]:4) ;
   k1:=0;k2:=0;
  for i:=1 to n do
   if a[i]>0 then
    inc(k1)
   else
    if a[i]<0 then
     inc(k2);
     writeln;
     if (k1=0) and (k2=0)  then
      writeln('Положительныйх и отрицательных нету... ')
       else
        if k1=0 then
         writeln('Нету положительных...')
        else
         if k2=0 then
          writeln('Нету отрецательных... ')
          else
           if k1>k2 then
            writeln('Положительных больше...')
            else
             writeln('Отрицательных больше...')
             else
               if k1=k2
               writeln('Одинаковое количество... ')
 
readkey;
END.
1
0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 4
17.12.2013, 21:03  [ТС] 3
Благодарю
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2013, 21:03
Помогаю со студенческими работами здесь

Найти каких цифр больше - отрицательных или положительных?
дано 17 целых чисел.Найти каких цифр больше ,отрицательных или положительных?\ Добавлено через...

Определить каких среди чисел больше: положительных или отрицательных
Как данную задачу можно решить в паскале АВС при помощи циклов? Последовательно вводятся N целых...

Определить каких среди чисел больше: положительных или отрицательных
Последовательно вводятся 10 целых чисел. Определить каких среди них больше: положительных или...

Определить, каких чисел в массиве больше - чётных положительных или нечётных отрицательных
Получить массив N случайных чисел, лежвщих в интервале от - 50до100. Определить каких чисел в нём...


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

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

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