Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115, 115]. вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.

program pr1; uses crt; var mas: array[1..10] of integer; i,a: integer; beginclrscr; a: =0; randomize; for i: =1 to 10 do mas[i]: =-115+random(231); for i: =1 to 10 do begin write(mas[i],' '); a: =a+mas[i]; end; writeln('summa=',a); end.

1) это полное имя файла 2) это путь до папки "system" 3) это относительное имя файла 4) это относительное имя файла 5)  это  относительное имя файла, без расширения скорей всего, тут имелось ввиду имя файла, находящееся в текущем каталоге. ответ: 4 p.s. в принципе, именем файла   может быть  и exe, если оно не является расширением. если в в 5 варианте ответа перед exe не стоит точка, то это может быть именем файла. но, если перед exe стоит точка, то это расширение имени файла..

//pascalabc.net 3.1 сборка 1239 uses system; uses system.collections; begin       var d : = datetime.today;       repeat               d : = d.adddays(1);       until d.dayofweek = dayofweek.sunday;             var sundays : = new dictionary< integer, integer> ();             repeat               if sundays.containskey(d.year) then                       sundays[d.year] += 1               else                       sundays.add(d.year, 1);                             d : = d.));       until d.year < = 1;             var max : = sundays.values.max;       sundays.where(x -> x.value = max).println; end.