Помогите с информатикой плиз))

Question

Помогите с информатикой плиз))

---

Answer 1

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

Comments

*pascal