Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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