Verified answer

Ответ:

program z;

const n=40;

var A:array [1..n] of real;

i:integer;

m:real;

begin

for i:=1 to n do

begin

A[i]:=0.5*i-20;

write(A[i],'  ')

end;

writeln;

m:=A[1];

for i:=2 to n do

if A[i]<m then m:=A[i];

write(m)

end.

Объяснение:

используем цикл с параметром (for i:=1 to n do) в нём заполняем массив (A[i]:=0.5*i-20;) и выводим на экран значение текущего элемента (write(A[i],'  '))

присваиваем переменной m значение первого элемента массива (m:=A[1];)

используем цикл с параметром (for i:=2 to n do) в нём используя неполный оператор ветвления (if A[i]<m then m:=A[i];) проверяем каждый элемент (кроме первого) на соответствие условию и если условие истинно, то присваиваем переменной m значение текущего элемента

выводим на экран конечное значение переменной m (write(m))