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

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

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

Ребят помогите написать прогу в Free Pascal
Вводится массив из N целых положительных чисел. Определить, в каком из чисел наибольшая сумма всех его цифр. Для подсчета суммы цифр числа использовать подпрограмму.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2012, 12:44
Ответы с готовыми решениями:

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

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

Определить, превышает ли сумма цифр числа число, которое вводится с клавиатуры
1.Дано двузначное число (вводится с клавиатуры). Написать программу...

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

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

8
druidich
30 / 30 / 12
Регистрация: 21.05.2012
Сообщений: 445
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
Sergey470
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
24.05.2012, 17:51  [ТС] 3
спасибо что откликнулся
0
Sergey470
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
DaskOFF
112 / 112 / 42
Регистрация: 02.05.2012
Сообщений: 524
Записей в блоге: 1
27.05.2012, 16:06 5
одномерный массив , какая матрица ?
0
druidich
30 / 30 / 12
Регистрация: 21.05.2012
Сообщений: 445
27.05.2012, 18:11 6
выводится массив рандомно созданных чисел. затем выводится их поэтапное разложение и ответ )
0
Sergey470
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
28.05.2012, 13:57  [ТС] 7
а как нибудь попроще, без рандомно созданных чисел можно?
0
rangerx
1942 / 1551 / 478
Регистрация: 31.05.2009
Сообщений: 2,913
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
Sergey470
0 / 0 / 0
Регистрация: 24.05.2012
Сообщений: 10
29.05.2012, 17:21  [ТС] 9
rangerx, ваще от души, выручил
0
29.05.2012, 17:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2012, 17:21

Сумма всех цифр чисел совпадает с суммой цифр данного числа.
Число n вводится с клавиатуры. Составить программу, выводящую на экран все...

Сумма всех цифр чисел совпадает с суммой цифр данного числа.
Число n вводится с клавиатуры. Составить программу, выводящую на экран все...

Определить в каком числе 1 цифра наибольшая
Дано 4 числа, определить в каком числе 1 цифра наибольшая


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

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

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