1. В полном пути сначала идёт имя диска (E:), потом названия папок, разделенные \, потом название файла. После перемещения файл находится в папке БАЙКАЛ, которая лежит в папке с адресом E:\ОЗЁРА
2. Тут зачем-то написали всё в обратном порядке - подкаталог находится внутри каталога и в полном имени идёт после названия родительского каталога. Если папка НОВОЕ находится сразу на диске C: (о чем авторы задания написать забыли), то получится C:\НОВОЕ\ПОКОЛЕНИЕ\ВЫБИРАЕТ\чтение.doc
3. ? заменяет ровно один символ, * - любое количество (возмножно, нулевое). Нужно имя файла, в котором на 4-м, 5-м и 6-м местах стоят символы м, и, р, и в котором расширение .doc. Подходит только примирение.doc
1. begin var a:=ArrRandom(10,1,50); a.Println; var c:=ReadInteger('c = '); var s:=a.Where(x->x>c); if s.Count>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s.Average) else writeln('В массиве нет искомых элементов'); end.
Пример: 8 2 22 16 24 34 29 16 1 26 c = 50 В массиве нет искомых элементов
2. const n=10; var a:array[1..n] of integer; c,i,s,k:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end; writeln; write('c = '); readln(c); s:=0; k:=0; for i:=1 to n do if a[i]>c then begin s:=s+a[i]; k:=k+1; end; if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2) else writeln('В массиве нет искомых элементов'); end.
1. Е:\ОЗЁРА
2. C:\НОВОЕ\ПОКОЛЕНИЕ\ВЫБИРАЕТ\чтение.doc
3. примирение.doc
Объяснение:
1. В полном пути сначала идёт имя диска (E:), потом названия папок, разделенные \, потом название файла. После перемещения файл находится в папке БАЙКАЛ, которая лежит в папке с адресом E:\ОЗЁРА
2. Тут зачем-то написали всё в обратном порядке - подкаталог находится внутри каталога и в полном имени идёт после названия родительского каталога. Если папка НОВОЕ находится сразу на диске C: (о чем авторы задания написать забыли), то получится C:\НОВОЕ\ПОКОЛЕНИЕ\ВЫБИРАЕТ\чтение.doc
3. ? заменяет ровно один символ, * - любое количество (возмножно, нулевое). Нужно имя файла, в котором на 4-м, 5-м и 6-м местах стоят символы м, и, р, и в котором расширение .doc. Подходит только примирение.doc
begin
var a:=ArrRandom(10,1,50); a.Println;
var c:=ReadInteger('c = ');
var s:=a.Where(x->x>c);
if s.Count>0 then
writeln('Среднее арифметическое элементов > ',c,' = ',s.Average)
else writeln('В массиве нет искомых элементов');
end.
Пример:
8 2 22 16 24 34 29 16 1 26
c = 50
В массиве нет искомых элементов
2.
const n=10;
var a:array[1..n] of integer;
c,i,s,k:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
write('c = ');
readln(c);
s:=0; k:=0;
for i:=1 to n do
if a[i]>c then begin s:=s+a[i]; k:=k+1; end;
if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2)
else writeln('В массиве нет искомых элементов');
end.
Пример:
39 38 43 25 45 16 16 12 35 16
c = 40
Среднее арифметическое элементов > 40 = 44.00