Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
andrew799
0 / 0 / 0
Регистрация: 24.12.2015
Сообщений: 1
1

Посчитать и вывести четные и нечетные, положительные и отрицательные числа массива

24.12.2015, 21:51. Просмотров 990. Ответов 3
Метки нет (Все метки)

задан массив k(20) посчитать и вывести четные и нечетные, положительные и отрицаетельные числа. pascal
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 21:51
Ответы с готовыми решениями:

Дан массив ненулевых чисел размера N. Проверить чередуются ли в нем (четные и нечетные),(положительные и отрицательные числа)
Дан массив ненулевых чисел размера N. Проверить чередуются ли в нем (четные и...

Вывести четные положительные степени числа 2, не превышающие числа N
Напишите программу, которая вводит натуральное число N и выводит на экран...

Вывести вначале все четные элементы массива, а затем - нечетные
Дан целочисленный массив размера N. Вывести вначале все его четные элементы, а...

Вывести на экран сначала четные элементы массива, потом нечетные
2. Дан массив целых чисел. Вывести на экран сначала четные элементы массива,...

Вывести на экран сначала отрицательные числа, потом положительные
На вход программе подается последовательность целых чисел. В первой строке...

3
Damir94
0 / 0 / 3
Регистрация: 23.09.2013
Сообщений: 29
26.12.2015, 00:46 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
Type myArray = array[1..20] of integer;
Var arr: myArray;
    i, posit, even, N: integer;
Begin 
  Randomize;
  posit := 0;
  even := 0;
  N := 20;
  Writeln('Массив:');
  For i := 1 to N do 
    begin 
      arr[i] := random(21)-10;   
      write(arr[i]:4);
      if arr[i] > 0 then
        inc(posit);
      if arr[i] mod 2 = 0 then
        inc(even);
    end;
  Writeln;
  Writeln('Положительных чисел - ' + posit);
  Writeln('Отрицательных чисел - ' + (N - posit));
  Writeln('Четных чисел - ' + even);
  Writeln('Нечетных чисел - ' + (N - even));
end.
0
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
26.12.2015, 22:10 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

0 делится на 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
Type myArray = array[1..20] of integer;
Var arr: myArray;
    i, posit, kn, even, N: integer;
Begin
  Randomize;
  posit := 0; kn:= 0;
  even := 0;
  N := 20;
  Writeln('Массив:');
  For i := 1 to N do
    begin
      arr[i] := random(21)-10;
      write(arr[i]:4);
      if arr[i] > 0
       then inc(posit)
       else if arr[i]<0
             then inc(kn);
      if arr[i] mod 2 = 0 then
        inc(even);
    end;
  Writeln;
  Writeln('Положительных чисел = ',posit);
  Writeln('Отрицательных чисел = ',kn);
  Writeln('Четных чисел = ',even);
  Writeln('Нечетных чисел = ',(N - even));
end.
0
Damir94
0 / 0 / 3
Регистрация: 23.09.2013
Сообщений: 29
26.12.2015, 22:55 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ну тогда так
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
Type 
  myArray = array[1..20] of integer;
Var 
  arr: myArray;
  i, positive, negative, even, N: integer;
Begin
  Randomize;
  positive := 0; 
  negative:= 0;
  even := 0;
  N := 20;
  Writeln('Массив:');
  For i := 1 to N do
    begin
      arr[i] := random(21)-10;
      write(arr[i]:4);
      
      if arr[i] > 0 then inc(positive)
      else if arr[i] < 0 then inc(negative);
      
      if arr[i] mod 2 = 0 then inc(even);
    end;
  Writeln;
  Writeln('Положительных чисел = ', positive);
  Writeln('Отрицательных чисел = ', negative);
  Writeln('Четных чисел = ', even);
  Writeln('Нечетных чисел = ', (N - even));
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2015, 22:55

Создать 3 файла - содержащий отрицательные, четные и нечетные числа, проанализировав введенные значения
2. Создайте файл f целых чисел от А до В (значения чисел вводятся с...

Заменить все отрицательные числа в массиве на положительные , а положительные на отрицательные
Существует двумерный массив произвольной размерности . Заменить все...

Модули. Вывести таблицу, содержащую четные и нечетные элементы массива
Есть массив действительных чисел. Вывести таблицу, содержащую четные и нечетные...


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

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

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