Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Bordex
0 / 0 / 0
Регистрация: 10.12.2015
Сообщений: 22
#1

Выяснить, каких элементов больше в таблице: больших 0 или равных 0 - Pascal

18.12.2015, 13:10. Просмотров 135. Ответов 1
Метки нет (Все метки)

Дан целочисленный линейный массив, состоящий из 20 элементов. Выяснить, каких элементов больше в таблице: больших 0 или равных 0. Для подсчета количества элементов можно использовать процедуру.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2015, 13:10
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выяснить, каких элементов больше в таблице: больших 0 или равных 0 (Pascal):

Дано натуральное число n и символы s1, s2, .sn. Выяснить каких символов больше + или * - Pascal
Дано натуральное число n и символы s1, s2, ..sn. Выяснить каких символов больше + или *

Дано натуральное число, выяснить, каких цифр больше нулей или единиц - Pascal
Дано натуральное число, выяснить, каких цифр больше нулей или единиц

Используя тип множество, выяснить каких букв в тексте больше, гласных или согласных - Pascal
Дано текст из простых латинских букв и цифр, за которыми следует точка. Используя тип множество, выяснить каких букв больше,...

Дана последовательность из n символов. Выяснить, каких символов в последовательности больше,запятых или точек с запятой.(Не исключая случай равенства) - Pascal
Помогите пожалуйста!

Определить, каких элементов массива больше: положительных или отрицательных - Pascal
В заданной матрице из 7 строк и 9 столбцов, не содержащей нулевых элементов, определить, каких элементов больше: положительных или...

Определить каких элементов в массиве больше - цифр или латинских строчных букв - Pascal
Помогите решить задачу....... Определить каких элементов в массиве больше - цифр или латинских строчных букв. Подсчёт количества...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3835 / 2822 / 1941
Регистрация: 05.06.2014
Сообщений: 13,818
18.12.2015, 22:59 #2
Pascal
1
2
3
4
5
6
7
8
k0:=0;
k1:=0;
for i:=1 to 20 do
 if a[i]=0 then 
  inc(k0)
 else
  if a[i]>0 then 
   inc(k1);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2015, 22:59
Привет! Вот еще темы с ответами:

Ввод массива, определение количества элементов больших K, меньших K, равных K, кратных K - Pascal
дан одномерный массив A , для данного массива создать следующие функции: ваод массива, определение колличества элементов больших K, меньших...

каких (русских или латинских) больше и насколько. - Pascal
Доброго времени суток помогите пожалуйста решить задачу.. Дана строка содержащая русские и латинские буквы. Определить каких (русских...

Определить каких слов больше с цифрами или без - Pascal
Добрый день! Помогите, пожалуйста, написать код. Вводится строка. В составе слова могут встретиться цифры. Необходимо определить каких слов...

каких чисел в массиве больше, положительных или отрицательных - Pascal
Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет ...


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

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

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