[Pascal ABC.NET] Пользователь вводит 10 чисел, программа показывает сумму самого маленького и самого большого числа. Есть код. Что я сделал не так?

[Николай_777]

Задача: Пользователь вводит 10 чисел, программа показывает сумму самого маленького и самого большого числа.
Похоже я перемудрил чего то=)) PS: PascalABC.NET

var k,i,c,max,min:integer;
 a:array [1..10] of integer;
  begin
for i:=1 to 10 do 
max:=0;
min:=0;
   begin
readln(k); // Здесь человек должен ввести числа.

 if((k)<=0) or ((k)>=0) then
begin

a[c]:=a[k]+ a[c] mod 10;
 a[k]:=a[k] div 10;   // Здесь по идее программа должна найти сумму каждого числа, Ошибка здесь?

for i:=1 to 10 do
 if a[k]>max then max:=a[k];
  if (a[c]<=min) or (a[c]<max) then min:=a[c]; // Здесь программа должна найти наименьшее и наибольшее.И здесь?
 
 for i:=1 to 10 do
 writeln(a[c], a[k]);
 
 writeln('max= ', max , 'min= ', min);
end;
end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[digitalis]

Отформатируй текст проги, как положено, обкрути тегами - тогда помогем. Это же не поэма "Мцыри"

[Николай_777]

Сообщение от digitalis

Отформатируй текст проги, как положено, обкрути тегами - тогда помогем. Это же не поэма "Мцыри"

Спасибо за подсказку, у нас как обычно, люди как я правила узнают опосля. Извиняюсь!

[Aleksandr H.]

Сообщение от Николай_777

программа показывает сумму самого маленького и самого большого числа

att.jpg
А если тебе надо сумму цифр в записи самого маленького и самого большого, то формулируй вопросы верно

[Николай_777]

Сообщение от Aleksandr H.

Вложение 91274
А если тебе надо сумму цифр в записи самого маленького и самого большого, то формулируй вопросы верно

Ну как написано я так и написал=)) Это придумал не я=) Я лишь пытаюсь решить эту задачу. Мне нужна сумма чисел которых я ввожу, то есть, ввел 1590: 1+5+9+0 и так все десять чисел, и найти наименьшую сумму и наибольшую из введённых.

[digitalis]

Мне нужна сумма чисел которых я ввожу, то есть, ввел 1590: 1+5+9+0 и так все десять чисел, и найти наименьшую сумму и наибольшую из введённых.

Сумма чисел и сумма цифр, составляющих число - это не одно и то же. Мне кажется, имеется непонимание: что такое число и что такое цифра. Видимо, имеется в виду второе, бо если по исходному посту, то: найти max и min, а затем их сложить.

[Николай_777]

Сообщение от digitalis

Сумма чисел и сумма цифр, составляющих число - это не одно и то же. Мне кажется, имеется непонимание: что такое число и что такое цифра. Видимо, имеется в виду второе, бо если по исходному посту, то: найти max и min, а затем их сложить.

""Пользователь вводит 10 чисел, программа показывает сумму самого маленького и самого большого числа."" Это дословная задача, может конечно я неправильно понял..

[Serge_Bliznykov]

Сообщение от Николай_777

Это дословная задача, может конечно я неправильно понял..

неправильно.
пользователь вводит 10 чисел
(например, -10 -20 0 470 31 105 370 -5 -1 5 )
программа должна найти самое маленькое число (в данном примере это -20)
и самое большое число (в данном примере это 470) и вывести их сумму:
-20 + 470 = 450

ни о каких цифрах речи, как видите, не идёт.