Question

Составьте программу которая вычисли наименьшее из 20 чисел! На Паскале.

Answer 1

Ответ:

Числа задаются случайным образом на случайном промежутке. Если требовался ввод с клавиатуры, напишите об этом.

var a: array[1..20] of integer;

var i,min: integer;

begin

randomize();

min:=1;

for i:=1 to 20 do  

 begin

 a[i]:=random(-100,100);

 write(a[i],' ');

 if (a[i]<a[min]) then min:=i;

 end;

writeln();

writeln('Меньшее из 20 чисел равно ',a[min]);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая вычислит наименьшее из 20 чисел:

pascalCopy code
program FindMinimum;

var
  numbers: array [1..20] of Integer;
  i, minimum: Integer;

begin
  writeln('Введите 20 чисел:');
  
  for i := 1 to 20 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;
  
  minimum := numbers[1];
  
  for i := 2 to 20 do
  begin
    if numbers[i] < minimum then
      minimum := numbers[i];
  end;
  
  writeln('Наименьшее число: ', minimum);
  
end.

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