hrenovoo
Paskall: var a:array[1..5[ of integer; i, min:integer; begin writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>'); for i:=1 to 5 do read(a[i]); min:=a[1]; for i:=2 to 5 do if(a[i]<min) then min:=a[i]; writeln('Минимальный элемент массива: ', min); end.
Answers & Comments
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.