Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
serg235
1 / 1 / 1
Регистрация: 17.03.2013
Сообщений: 69
1

Удвоить все нечетные числа, использую процедуру

19.04.2013, 12:48. Просмотров 966. Ответов 1
Метки нет (Все метки)

Дан массив D(40) целых чисел. Удвоить все нечетные числа, использую процедуру.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2013, 12:48
Ответы с готовыми решениями:

Все нечетные элементы удвоить, а четные уменшить в двое
Все нечетные элементы удвоить, а четные уменшить в двое.

Дан одномерный массив, сложить все чётные числа и все нечетные числа
Помогите решить задачи. 2)Дан одномерный массив, сложить все чётные числа и все нечетные числа

Если Б<А<Ц,то все три числа удвоить
Даны три действительных числа. Если Б&lt;А&lt;Ц, то все три числа удвоить. Если А&lt;Б&lt;Ц, то максимальное...

Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне
Ввести массив из 10 чисел. Все четные числа вывести в одном окне, в строчку; все нечетные числа -...

В файл g записать все четные числа из файла f, а в h все нечетные.
Организовать файл последовательного доступа f, состоящий из N целых чисел. После этого организовать...

1
SunEclipse
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
19.04.2013, 15:22 2
Лучший ответ Сообщение было отмечено serg235 как решение

Решение

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
uses crt;
type
ar = array[1..100] of integer;
var
arr: ar;
i,n:integer;
procedure print(a:integer;arr: ar);
var i:integer;
begin
    for i:=1 to a do begin
        write(arr[i]:5);
    end;
    writeln();
    
end;
 
procedure vich(n:integer;arr:ar);
var i: integer;
begin
 
for i:=1 to n do begin
    if (arr[i] mod 2<>0) then
    arr[i]:=arr[i]*2;
end;
writeln('Double:');
    print(n,arr);
end;
 
begin
    readln(n);
    for i:=1 to n do begin
        arr[i] := random(10);
    end;
    
    print(n,arr);
    vich(n,arr);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2013, 15:22

Записать в файл все четные числа, а затем - все нечетные
1.Дано файл целых чисел f. Переписать компоненты файла f в файл g так, чтобы сначала были записаны...

Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15
Записать в файл все нечетные числа из . Затем вывести все элементы данного файла, начиная с 15

Увеличить все нечетные числа, содержащиеся в массиве, на исходное значение последнего нечетного числа
Дан целочисленный массив размера N. Увеличить все нечетные числа, содержащиеся в массиве, на...


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

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

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