Задание 4
Написать программу, создающую одномерный массив из 15 элементов. Значения членов массива вводятся при выполнении программы. Программа должна находить минимальный и максимальный члены массива и их номера.

var  a: array[1..15] of integer;  i, imin, imax: integer;begin  imax:=1;  imin:=1;  for i:=1 to 15 do    begin      readln(a[i]);      if a[i]<a[imin] then imin:=i;      if a[i]>a[imax] then imax:=i;    end;  writeln('Минимальный член массива ', a[imin], ', его номер ', imin);  writeln('Максимальный член массива ', a[imax], ', его номер ', imax);end.

Программа на Паскаль.Program Dik;Vari, min, max, minnum, maxnum: integer;a: array[1..15] of integer;Beginfor i:= 1 to 15 do   readln(a[i]);max:=a[1]; min:=a[1];for i:= 1 to 15 do begin   if a[i]<min then begin      min:=a[i]; minnum:=i;   end;   if a[i]>max then begin      max:=a[i]; maxnum:=i;   end;end;writeln('max=', max);writeln('min=', min);writeln('maxnum=', maxnum);writeln('minnum=', minnum);end.