Дано: С:\Предметы\Физика\Тесты
1) Поднявшись на 2 уровня вверх оказываемся в каталоге Предметы.
2)Спустились в каталог Информатика, а потом в каталог Оценки -- С:\Предметы\Информатика\Оценки
Ответ: <em>С:\Предметы\Информатика\Оценки</em>
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:5
1
5
-1
-2
4
5
6
Пример вывода:Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
На выводе массива поставил вывод до 4 знака после запятой, можете убрать, если захотите. Или вообще вывод массива убрать
uses crt;
const n=16;
var i,ans:integer;
mas:array[1..n] of real;
begin
writeln('Массив:');
for i:=1 to n do
begin
mas[i]:=cos(i)/i;
writeln(mas[i]:0:4);
end;
if mas[1]>mas[2] then
inc(ans);
for i:=2 to n do
if (mas[i]>mas[i-1]) and (mas[i]>mas[i+1]) then
inc(ans);
writeln('Ответ: ',ans);
<span>end.</span>
Ищ микросистем. программ .
Развернутая форма числа - представление числа в виде суммы каждого разряда числа.
4563 = 4 × 10^3 + 5 × 10^2 + 6 × 10^1 + 3 × 10^0
100101 = 1 × 2^5 + 0 ×2^4 + 0 ×2^3 + 1 ×2^2 + 0 ×2^1 + 1 ×2^0
AC6 = 10 ×16^2 + 12 ×16^1 + 6 × 16^0
