1. Дано дерево иерархической файловой структуры на диске d. Указать: а) каталоги 2 уровня,
б) пути к файлам пляж.jpg и запрос.doc
в) полные имена файлов отчет.doc и план.txt
2. Даны полные имена файлов:
D:\Процессоры\ INTEL \ цены.xls
D:\Процессоры\ AMD \ цены.xls
D:\Мониторы\ SAMSUNG \ описание.doc
D:\Мониторы\ LG \ Информация \цены.xls
D:\Мониторы \SONY \ описание.doc
изобразите соответствующую файловую структуру.
3. Даны полные имена файлов:
А:\Ящик\Письма\Входящие\ реклама.pdf
А:\Ящик\Письма\Входящие\фото.jpg
А:\Ящик \Письма\ Отправленные\покупки.doc
А:\Письма\Работа\апрель.txt
А:\Письма \ Работа \май.txt
А:\Письма \Друзья\Школа\дз.doc
А:\Письма \Друзья\спорт.doc
изобразите соответствующую файловую структуру.
4. Даны полные имена файлов:
D:\Геометрия\Проект\Графики.bmp
D:\Учёба\Работа\Основа.doc
D:\Учёба\Работа\Замечания.doc
D:\Геометрия\Проект\Диаграммы.bmp
D:\Геометрия\Проект\ Функции.doc
изобразите соответствующую файловую структуру.
var a:array [1..10] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write (a[i],' ');
if a[i] < 0 then sum:=sum+a[i];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.
2)
var a:array [1..10] of integer;
i,max,index:integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
max:=a[1];
index:=1;
for i:=2 to 10 do
if a[i] > max then
begin
max:=a[i];
index:=i;
end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.
3)
var a:array [1..10] of integer;
max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(50);
write (a[i],' ');
end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
if a[i] > a[max] then max:=i else
if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.
var
a: array [1..5] of integer;
i,k:integer;
Begin
Writeln('Перечислите элементы массива: ');For i:=1 to 5 do
read(a[i]);
For i:=1 to 5 do
If (a[i] > -1) then write(a[i]:2);
End.
2)
var
a: array [1..5] of integer;
i,k1,k2,max,min:integer;
Begin
min:=MaxInt;
max:=-MaxInt;
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do
begin
read(a[i]);
if (a[i] > max) then max:=a[i];
if (a[i] < min) then min:=a[i];
end;
For i:=1 to 5 do
begin
If (a[i] = max) then inc(k1);
If (a[i] = min) then inc(k2);
end;
If (k1>k2) then writeln('Больше max элементов')
else writeln('Больше min элементов');
End.
3)
var
a: array [1..5] of integer;
i,k,x:integer;
Begin
Write ('X = ');
read(x);
Writeln('Перечислите элементы массива: ');
For i:=1 to 5 do begin read(a[i]);
if (a[i] = x ) then inc(k);
end;
writeln('kol = ',k) ;
end.