1. В операционной системе Windows создайте на рабочем столе папку Archives.
Создайте в этой папке еще две папки Pictures и Documents.
2. Найдите и скопируйте в папку Pictures по два рисунка с расширением *.jpg и *.bmp.
3. Сравните размеры файлов *.bmp и *.jpg. и запишите данные в таблицу_1.
4. В папку Documents поместите файлы *.doc (не менее 3) и запишите их исходные
размеры в таблицу_1.

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; var i,  min, max, minnum, maxnum: integer; a: array[1..15] of integer; begin for 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.