Const n = 7;
var
a:array [1..n] of integer;
i:integer;
begin
writeln('Первоначальный массив');
for i:=1 to n do
begin
a[i]:=5+random(31);
writeln(a[i]);
end;
writeln('Преобразованный массив');
for i:=1 to n do
begin
if a[i]>15 then a[i]:=8;
if a[i]= 5 then a[i]:=0;
writeln(a[i]);
end;
end.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end.
Выбирайте лучший ;)
Var x: real;
begin
write('Введите число: ');
readln(x);
writeln(x, ' = |', abs(x), '|');
<span>end.</span>
Б) ход его выполнения зависит от истинности тех или иных условий