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

@Vishan · Регистрация: 03.02.2017

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

2. Процедура вычисляет сумму цифр натурального числа. Для заданного массива натуральных чисел выдать сумму цифр каждого элемента и найти элемент с максимальной суммой цифр.

@Puporev · 27.03.2017, 17:17

Так АВС или Free?

@Vishan · 27.03.2017, 18:16 **[ТС]**

разницы нет .Главное чтобы не рандом)))

@Puporev · 27.03.2017, 18:18

Ну, удачи тогда.

@Hitoku · 27.03.2017, 18:27

Pascal

const m=10;
procedure Sum(a:integer; var b:integer);
begin
  b:=0; a:=abs(a);
  repeat
    b:=b+a mod 10;
    a:=a div 10;
  until a=0;
  write(b,' ');
end;
 
var
  a,b:array [1..m] of integer;
  i,im:byte;
  max:integer;
begin
  for i:=1 to m do readln(a[i]);
  for i:=1 to m do Sum(a[i],b[i]);
  max:=b[1]; im:=1;
  for i:=2 to m do
    if b[i]>max then begin
      max:=b[i]; im:=i;
    end;
  writeln;
  write('Элемент с максимальной суммой цифр: ', a[im],' - ',b[im]);
end.

@Vishan 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 37
		1
	Для заданного массива натуральных чисел выдать сумму цифр каждого элемента 27.03.2017, 17:13. Показов 751. Ответов 4 Метки нет (Все метки) 2. Процедура вычисляет сумму цифр натурального числа. Для заданного массива натуральных чисел выдать сумму цифр каждого элемента и найти элемент с максимальной суммой цифр. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.03.2017, 17:17	2
	Так АВС или Free? 0

@Vishan 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 37
	27.03.2017, 18:16 [ТС]	3
	разницы нет .Главное чтобы не рандом))) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.03.2017, 18:18	4
	Ну, удачи тогда. 0

	27.03.2017, 18:27