Дан массив целых чисел из 12 элементов. найти количество элементов массива являющихся кратными трем и пяти.

Ввести массив  проверяет условие и выводит количество чисел: for i: =1 to 12  do  k=0; if (a[i] mod 5=0) and (a[i] mod 3=0) then k=k+1; writeln(k); end.

1)файл-специально организованная структура данных, распознаваемая компьютером как единое целое или  файл  — это информация, хранящаяся в долговременной памяти как единое целое и обозначенная именем. 2)имя файла   — строка символов, однозначно определяющая файл в некотором пространстве имён файловой системы, обычно называемом каталогом, директорией или папкой.3) размеры файлов - не совсем понял, но вообще размер файла измеряется в основном в  бит, байт, килобайт, мегабайт, гигабайт, терабайт, далее в основном не встречаются. еще есть килобит, мегабит, гигабит, на счет последнего не знаю, никогда не встречал.4)папка- это объект в файловой системе, организацию файлов. типичная файловая система содержит большое количество файлов, и каталоги упорядочить её путём их группировки.5)иерархия папок- это   порядок последовательного расположения папок  6)объекты операционной системы-  контекстное меню,ярлык,  пиктограмма(она же иконка), рабочий стол,  папка,  диалоговое окно, окно. вообще их много, но основные я назвал.

1) program n1; const n=10; var a: array [1..n] of integer; i,sum: integer; begin randomize; sum: =0; for i: =1 to n do a[i]: =random(100)+1; for i: =1 to n do sum: =sum+a[i]; writeln('сумма: ',sum); end. 2) program n2; const n=10; var a: array [1..n] of integer; i,sum,j,temp: integer; begin randomize; writeln('исходный массив'); for i: =1 to n do begin a[i]: =random(100)+1; write(a[i],' '); end; writeln; writeln('полученный массив: '); for i: =1 to n do for j: =i to n do if a[j]< a[i] then begin temp: =a[i]; a[i]: =a[j]; a[j]: =temp end; for i: =1 to n do write(a[i],' '); end.