Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 09.01.2015
Сообщений: 12
1

Измените знак всех нечетных (четных) элементов массива, состоящего из L чисел

09.01.2015, 21:13. Просмотров 1285. Ответов 1
Метки нет (Все метки)

Помогите, нашла похожее, но немного отличающееся.
Измените знак всех нечетных (четных) элементов массива, состоящего из L чисел (предусмотреть случай наличия нецелых элементов).

Если можно, напишите полностью программу)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2015, 21:13
Ответы с готовыми решениями:

Измените знак всех нечетных (четных) элементов массива, состоящего из L чисел
2. Измените знак всех нечетных (четных) элементов массива, состоящего из L чисел (предусмотреть...

Одномерный массив: Измените знак всех четных элементов массива, состоящего из L чисел
Помогите пожалуйста. Измените знак всех четных элементов массива, состоящего из L чисел.

Изменить знак всех чётных элементов массива, состоящих из L чисел
Условие: Изменить знак всех чётных элементов массива , состоящих из L чисел. Заранее...

Одномерный массив. Измените знаки всех нечётных элементов массива
Измените знаки всех нечётных элементов массива, состоящего из L чисел. Решите пожалуйста.

1
Фрилансер
3404 / 2801 / 3000
Регистрация: 08.02.2012
Сообщений: 7,722
Записей в блоге: 1
10.01.2015, 10:57 2
Лучший ответ Сообщение было отмечено sarriel как решение

Решение

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
Const nmax=100;
Var A:array[1..nmax] of real;
    i,j,n,l,k:integer;
    m:longint;
Begin
    Repeat
     write('Количество элементов: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',n,' элементов');
    For i:=1 to n do
     read(A[i]);
    write('Количество цифр (L): ');readln(l);
    For i:=1 to n do
    Begin
      m:=trunc(A[i]);
      if m mod 2 = 0 then
      Begin
        k:=0;
        While m<>0 do
        Begin
          inc(k);
          m:=m div 10;
        End;
        if k=l then A[i]:=-A[i];
      End;
      write(A[i]:0:2,' ');
    End;
    readln;
End.
Для чётных.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2015, 10:57

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

Подсчитать разницу между суммой всех чётных и суммой всех нечётных элементов массива целых чисел
подсчитать разницу между суммой всех чётных и суммой всех нечётных элементов массива целых чисел...

Изменить знак всех нечетных элементов двумерного массива
Изменить знак всех нечетных элементов двумерного массива.

Массивы: вывести сумму всех четных/всех нечетных элементов массива
Задание: Пользователь вводит 5 чисел в массив из 5 элементов. Вывести сумму всех четных чисел. А...

Функция, которая меняет знак всех нечетных отрицательных элементов списка чисел
Функция, которая меняет знак всех нечетных отрицательных элементов списка чисел. Помогите...

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

Найти количество и значение всех четных и нечетных элементов массива
2)дан массив из 20 целых чисел найти количество и значение всех четных и нечетных элементов


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

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

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