Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
1

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

24.05.2012, 12:44. Просмотров 643. Ответов 8
Метки нет (Все метки)

Ребят помогите написать прогу в Free Pascal
Вводится массив из N целых положительных чисел. Определить, в каком из чисел наибольшая сумма всех его цифр. Для подсчета суммы цифр числа использовать подпрограмму.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2012, 12:44
Ответы с готовыми решениями:

Определить, в каком из двух натуральных чисел сумма цифр наибольшая
Помогите, пожалуйста, найти ошибку. Программа выдает неправильный ответ. Задача: Определить, в...

Определить, в каком числе из двух натуральных чисел сумма цифр наибольшая
1. Дана строка символов. Удалить из неё знаки препинания. 2.Определить, в каком числе из двух...

Составить функцию, определяющую, в каком из чисел цифр сумма цифр наибольшая
составить функцию, определяющую, в каком из чисел цифр сумма цифр наибольшая.

Определить, в котором сумма цифр наибольшая и в каком произведение цифр наименьшее
Дано 5 чисел. Количество цифр в числе варьируется от 3 до 5. Числа вводятся с клавиатуры,...

8
30 / 30 / 12
Регистрация: 21.05.2012
Сообщений: 446
24.05.2012, 13:42 2
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
38
39
40
41
42
43
type mas = array[1..10] of integer;
var 
i:integer;
mas1:mas;
k:integer;
 
procedure chet( mas1 :mas;var k : integer);
var summ,ost: real;
mas2 : mas; 
i,max:integer;
begin
summ:=0;
     for i:=1 to 10 do begin
        while (mas1[i]>0)   do begin
        ost:= mas1[i] mod 10;
 
         mas1[i]:=mas1[i] div 10;
                writeln(mas1[i],' ' ,ost);
         summ:=summ+ost;
        end;
    mas2[i]:=round(summ);
    summ:=0;
         
    end;
max:=mas2[1];
    for i:=2 to 10 do 
    if mas2[i]>max then max:=mas2[i];   
writeln('maimum=',max);
end;
 
 
begin
Randomize;
 
for i:=1 to 10 do 
    mas1[i]:=random(20);
for i:=1 to 10 do 
    write(mas1[i],' ' );
    writeln();
chet(mas1,k);
 
readln();
end.
1
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
24.05.2012, 17:51  [ТС] 3
спасибо что откликнулся
0
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
27.05.2012, 15:32  [ТС] 4
Цитата Сообщение от druidich Посмотреть сообщение
Pascal
1
2
3
type mas = array[1..10] of integer;
.....
end.
тут в программе когда ее запускаешь какая то матрица выходит
0
112 / 112 / 42
Регистрация: 02.05.2012
Сообщений: 524
Записей в блоге: 1
27.05.2012, 16:06 5
одномерный массив , какая матрица ?
0
30 / 30 / 12
Регистрация: 21.05.2012
Сообщений: 446
27.05.2012, 18:11 6
выводится массив рандомно созданных чисел. затем выводится их поэтапное разложение и ответ )
0
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
28.05.2012, 13:57  [ТС] 7
а как нибудь попроще, без рандомно созданных чисел можно?
0
1992 / 1592 / 488
Регистрация: 31.05.2009
Сообщений: 2,980
29.05.2012, 13:37 8
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
38
39
40
41
42
43
44
program prog;
 
{$MODE FPC}
 
//========================
function DigitSum(value: Integer): Integer;
var
  sum: Integer;
begin
  sum:= 0;
  value:= Abs(value);
 
  while(value <> 0) do
  begin
    Inc(sum, value mod 10);
    value:= value div 10;
  end;
 
  DigitSum:= sum;
end;
 
//========================
const
  N = 5;
var
  i: Integer;
  max: Integer;
  arr: array[1..N] of Integer;
begin
  WriteLn('INPUT ARRAY');
  for i:= 1 to N do
  begin
    Write(i, '\', N, ' -> ');
    ReadLn(arr[i]);
  end;
 
  max:= arr[1];
  for i:= 2 to N do
    if(DigitSum(arr[i]) > DigitSum(max)) then max:= arr[i];
 
  WriteLn('RESULT ', max);
 
  ReadLn;
end.
1
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
29.05.2012, 17:21  [ТС] 9
rangerx, ваще от души, выручил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2012, 17:21

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

В каком из трех чисел сумма четных цифр наибольшая
В каком из трех чисел сумма четных цифр наибольшая

Определить, в каком из 2 чисел сумма цифр больше
Задача: Дано два натуральных числа. Выяснить в каком, из них сумма цифр больше. Определить функцию...

Дан массив a из n целых чисел. Требуется определить, является ли сумма квадратов всех его элементов пятизначным числом
Дан массив aa из nn целых чисел. Требуется определить, является ли сумма квадратов всех его...

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


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

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

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