0 / 0 / 0
Регистрация: 05.12.2009
Сообщений: 14
1

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

14.02.2010, 12:41. Показов 1145. Ответов 1
Метки нет (Все метки)

Разработать процедуру, которая в массиве целых чисел находит элементы с максимальным количеством четных цифр и его номер. помогите плз. язык Delphi
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2010, 12:41
Ответы с готовыми решениями:

Написать процедуру, которая находит номер k последнего локального минимума в массиве вещественных чисел
Дан массив вещественных чисел x(n), написать процедуру, которая находит номер k последнего...

Написать программу которая находит сумму четных целых чисел от -20 до 98
Написать программу которая находит сумму четных целых чисел от -20 до 98

Разработать функцию, которая находит НОК двух целых чисел.
Разработать функцию, которая находит НОК двух целых чисел.

Разработать функцию, которая находит НОК трех целых чисел.
Разработать функцию, которая находит НОК трех целых чисел.

1
13207 / 6595 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
14.02.2010, 19:02 2
Лучший ответ Сообщение было отмечено saka как решение

Решение

Примерно так, не проверял.
Delphi
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
    TIntArray = array of Integer;
function foo(arr:TIntArray):Integer;
    function f(n:Integer):Integer;
    var d:Integer;
    begin
        result := 0;
        while n<>0 do begin
            d := n mod 10;
            n := n div 10;
            if (d mod 2)=0 then inc(result);
        end;
    end;
var i, L, max, n :Integer;
begin
    result := -1;
    max := MinInt;
    L := Length(arr);
    for i := 0 to L-1 do begin
        n := f(arr[i]);
        if n>max then begin
            max := n;
            result := i;
        end;
    end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.02.2010, 19:02
Помогаю со студенческими работами здесь

Разработать программу, которая находит наименьшее из нескольких целых чисел
Разработать программу, которая находит наименьшее из нескольких целых чисел. Считать, что первое...

Разработать функцию, которая находит НОД двух целых чисел.
Разработать функцию, которая находит НОД двух целых чисел.

В массиве целых чисел найти количество чисел с наименьшим количеством цифр
9. В массиве целых чисел найти количество чисел с наименьшим количеством цифр. Например, в массиве...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru