Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 35
1

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50

12.12.2013, 21:31. Просмотров 1577. Ответов 2
Метки нет (Все метки)

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50. Вывести массив, сами числа и их количество. Если таких не было, то сообщение "таких не было".
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2013, 21:31
Ответы с готовыми решениями:

В массиве целых чисел подсчитать количество чётных положительных чисел, меньших 40
В массиве целых чисел подсчитать количество чётных положительных чисел, меньших 40. Вывести...

Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое большое число
1). Сформировать массив с 6-ти целых чисел. Подсчитать количество чисел больших 0. Найти самое...

Найти количество простых чисел в массиве из 10 положительных целых чисел
Задание: Описать функцию IsPrime(K) логического типа, возвращающую true, если целый параметр К...

Подсчитать количество чисел больших среднего арифметического положительных элементов массива
В одномерном массиве А подсчитать количество чисел больших среднего арифметического положительных...

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

Решение

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
uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,j,k,min:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(200)-40;
 
 for i:=1 to n do
  write(a[i]:4);
   writeln;
 
   j:=1;k:=0;
   for i:=1 to n do
   begin
    if (a[i]>0) and (a[i] mod 2<>0 ) and (a[i]>50) then
    begin
     b[j]:=a[i];
     inc(j);
     inc(k);
     end;
   end;
    writeln;
 
    if k=0 then
     write('НЕТУ  ')
      else
       writeln('Количество = ',k) ;
       writeln;
        for i:=1 to j-1 do
          write(b[i]:4);
 
 
readkey;
 
END.
1
0 / 0 / 0
Регистрация: 06.12.2013
Сообщений: 35
13.12.2013, 00:57  [ТС] 3
Огромное спасибо)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2013, 00:57

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

В массиве из 10 чисел подсчитать количество элементов больших трех
В массиве из 10 чисел подсчитать количество элементов больших трех Решить через Мссив если будет...

В массиве из 10 чисел подсчитать количество элементов больших n и меньших m.
В массиве из 10 чисел подсчитать количество элементов, больших n и меньших m (параметры m и n...

Дан файл целых чисел. Подсчитать сумму чисел, больших числа N
program p1; var fx:text; s,k,n:real; c:integer; begin...

Подсчитать количество отрицательных и положительных чисел в двумерный массиве
Составить программу, в которой сформировать двумерный целочисленный массив случайных чисел А, и...


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

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

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