Надо найти наименьшее число из массива A. Вот код :
program massiv;
var A: array [1..10] of integer;
i, min: integer;
begin
A[i] := random(10);
for i:= 1 to 10 do
min := A[1];
begin
if A[2] < min then
min := A[2];
if A[3] < min then
min := A[3];
if A[4] < min then
min := A[4];
if A[5] < min then
min := A[5];
if A[6] < min then
min := A[6];
if A[7] < min then
min := A[7];
if A[8] < min then
min := A[8];
if A[9] < min then
min := A[9];
if A[10] < min then
min := A[10];
Writeln('наименьшее число := ', min);
end;
end.
Исправьте пожалуйста