profile
Опубликовано 6 лет назад по предмету Информатика от Mikuwa

Заполните массив с клавиатуры целыми числами и найдите значение минимального элемента массива.

Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве. Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.

Выходные данные:
значение минимального элемента массива

 

(Написать программу на Паскале)

  1. Ответ
    Ответ дан gamezo
    var
     N,i,min:longint;
    a:array [1..100] of longint;
    begin
     Read(N);
     For i:=1 to N do Read(a[i]);
    min:=100000;
    For i:=1 to N do 
     if a[i]<min then min:=a[i];
    Write(min);
    end.
Самые новые вопросы