Массивы

@Dracen · Регистрация: 16.05.2010

Author24 — интернет-сервис помощи студентам

1. Описать функцию, которая возвращает среднее арифметическое значение четных цифр входящих в запись числа типа Longint .
2. Даны 3 массива целых чисел: (4*5), (5*5), (5*4). Сформировать одномерные массивы из индексов отрицательных элементов строк массива. Распечатать тот вектор, в котором находится максимальное количество элементов. Считать, что такой вектор один. Использовать StringGrid.
Помогите в решении!

@Zabiyak · 11.06.2010, 17:03

1)

Delphi

function MyFunc(N: longint): real;
  var
    s: string;
    count, sum, i: integer;
  begin
    s:= IntToStr(N);
    count:= 0;
    sum:= 0;
    for i:= 1 to Length(s) do
      if (StrToInt(s[i]) mod 2) = 0 then begin
        sum:= sum+StrToInt(s[i]);
        inc(count);
      end;
    result:= sum/count;
  end;

Добавлено через 1 минуту
Точнее в конце лучше вместо

Delphi

1	result:= sum/count;

писать

Delphi

1	if count = 0 then result:= 0 else result:= sum/count;

чтобы подстраховаться.

@Dracen 0 / 0 / 0 Регистрация: 16.05.2010 Сообщений: 7
		1
	Массивы 11.06.2010, 00:27. Показов 1008. Ответов 1 Метки нет (Все метки) 1. Описать функцию, которая возвращает среднее арифметическое значение четных цифр входящих в запись числа типа Longint . 2. Даны 3 массива целых чисел: (45), (55), (5*4). Сформировать одномерные массивы из индексов отрицательных элементов строк массива. Распечатать тот вектор, в котором находится максимальное количество элементов. Считать, что такой вектор один. Использовать StringGrid. Помогите в решении! 0

	11.06.2010, 17:03

Массивы

Решение