Выбрать наименьшее значение из 20ти чисел, вводимых с клавиатуры

16.01.2013, 20:15. **Показов** 6196. **Ответов** 1

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

Выбрать наименьшее значение из 20ти чисел, вводимых с клавиатуры. Помогите пожалуйста, я в паскале не силён

@Kasperdun · 16.01.2013, 20:43

Pascal

var i,min: integer;
a:array[1..20] of integer;
 
begin
for i:=1 to 20 do
 begin
  write('Введи число №',i,': ');
  readln(a[i]);
 end;
min:=a[1];
for i:=2 to 20 do
  if a[i]<min then
    min:=a[i];
 
Writeln('Минимальное: ',min)
end.

AlexanderB
		1
	Выбрать наименьшее значение из 20ти чисел, вводимых с клавиатуры 16.01.2013, 20:15. Показов 6196. Ответов 1 Метки нет (Все метки) Выбрать наименьшее значение из 20ти чисел, вводимых с клавиатуры. Помогите пожалуйста, я в паскале не силён

	16.01.2013, 20:43

Выбрать наименьшее значение из 20ти чисел, вводимых с клавиатуры

Решение