Пользователь работал с каталогом азия. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз. в результате он оказался в каталоге c: \путешествие\командировки\европа\франция запишите полный путь каталога, с которым пользователь начинал работу. 1) c: \путешествия\командировки\азия 2) c: \путешествия\азия 3) c: \азия 4) c: \азия\путешествие прошу !

1.

program asd; uses crt; var a: array[1..10] of integer; i: integer; sum: integer; beginwriteln('введите 10 цифр по очереди'); for i: =1 to 10 do begin readln(a[i]); if (a[i]> 7) then begin a[i]: =7; sum: =sum+1; end; end; writeln(' ',sum);

end.

2.  смысл ? 10/2=5 или индексами ты имела ввиду значениями?  

3.program asd; uses crt; var a: array[1..10] of integer; i: integer; naib: integer; beginwriteln('введите 10 цифр по очереди'); for i: =1 to 10 do begin readln(a[i]); if (a[i]> naib) then naib: =a[i]; end;

writeln(' ',naib);

end.

const  n = 10; //количество чисел, которое нужно сформировать  first = -10; //с какого числа должны генерироваться случайные числа  second = 15; {по какое число должны генерироваться случайные числа(например в данном случае случайные числа генерируются в диапазоне от - 10 до 15)}

var  f, g, h: text;   i: integer;   number: array [1..n] of integer; {массив, в который записываются числа, считанные из файлов}

begin  randomize;   assign(f, 'f.txt'); //инициализируем файл f  assign(g, 'g.txt'); //инициализируем файл g  assign(h, 'h.txt'); //инициализируем файл h  rewrite(f); //открываем файл f для записи  for i: = 1 to n div 2 do write(f, random(abs(first) + abs(second)) + first , ' '); {первую половину чисел записываем в файл f}  close(f); //закрываем файл f  rewrite(g); //открываем файл g для записи  for i: = (n div 2) + 1 to n do write(g, random(abs(first) + abs(second)) + first, ' '); {вторую половину случайно сгенерированных чисел записываем в файл g}  close(g); //закрываем файл g  reset(f); //открываем файл f для считывания  for i: = 1 to n div 2 do read(f, number[i]); {первую половину чисел считываем из файла f в массив}  close(f); //закрываем файл f  reset(g); //открываем файл g для считывания  for i: = (n div 2) + 1 to n do read(g, number[i]); {вторую половину чисел считываем из файла g в массив}  close(g); //закрываем файл g  rewrite(h); //открываем файл h для записи  for i: = 1 to n div 2 do write(h, number[i], ' '); {первую половину считанных чисел из массива записываем в файл h}  writeln(h); //перевод на новую строку в файле h  for i: = (n div 2) + 1 to n do write(h, number[i], ' '); {вторую половину считанных чисел из массива записываем в файл h}  close(h); //закрываем файл hend.

все файлы там же, где находится файл программы.