На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
x:=1;
for i:=1 to n do
begin
write('Input a[',i,']=');
readln(mas[i]);
x:=x*abs(mas[i]);
end;
writeln('the answer is:', x);readln;
<span>end.
Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] = </span>
Иванов-парикмахер
Петров-плотник
Сидоров-мельник
Гришин-почтальон
Алексеев-маляр
1)
for i:= 1 to 30 do
if ((A[i]>=0) and (A[i]<=6))
then k:=k+1;
Где k - счетчик чисел.
2)
for i:= 1 to 30 do
begin
if (A[i]<0) then A[i]:=5;
else A[i]:=2;
end;
<span>float R, r; // объявляем две переменные, внутреннего и внешнего радиусов
cin >> R >> r; // просим пользователя их задать
float pi = 3.14; // число Пи
float s = (pow(R, 2) - pow(r, 2)) * pi<span>; // формула вычисления площади кольца
cout << s; // вывод</span></span>