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

👇

Увидеть ответ

Ответ:

simonenkoeliza

15.06.2020

Вариант 2)C:\Библиотека\Лирика

4,4(18 оценок)

Открыть все ответы

Ответ:

Katteerina25

15.06.2020

Var
i: Integer; // рабочая переменная для for
k: Integer; // количество минимальных элементов
n: Integer; // размер массива m : array [1..10] of Integer; // Собственно сам массив из "n" элементов
i_min : Integer; // Индекс минимального элемента в массиве
begin
n:=10; k := 0; i_min := 1;
for i := 1 to n do
begin
m[i] := Random(10); // 10 - Число от балды
if (m[i]<m[i_min]) then
begin
k := 1;
i_min := i
end
else
if (m[i]=m[i_min]) then
inc(k);
end;

// В переменной "k" - находится количество минимальных элементов
end;

4,5(23 оценок)

Ответ:

TIGER197

15.06.2020

Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
end.

Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
end.

4,8(39 оценок)

Это интересно:

Компьютеры-и-электроника

11.02.2022

Как установить новые модели машин в GTA 4: подробная инструкция...

Дом-и-сад

29.04.2023

Как правильно покрасить кожаный диван: секреты и советы...

Здоровье

16.08.2022

Как найти гипнотерапевта: советы и рекомендации...

Дом-и-сад