1)
#include <iostream>
using namespace std;
int A[1000];
int main()
{
int n;
cin >> n;
for (int i = 1; i <= n; i++)
{
cin >> A[i];
if (A[i] % 2 == 0)
{
A[i] *= 2;
}
cout << A[i] << " ";
}
return 0;
}
Остальные решения прикрепил файлами
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:
program dichotom;
uses Crt;
var a, b, eps, xn, y, psy: real;
n: integer;
function f(x:real):real;
begin
f:=sin(x)-1/x;
end;
begin
ClrScr;
a:=2;
b:=3;
eps:=0.01;
n:=0;
y:=f(a);
while y>=eps do
begin
n:=n+1;
xn:=(a+b)/2;
y:=f(xn);
if y>=eps then
if f(a)*y<0 then b:=xn else a:=xn;
end;
psy:=xn;
WriteLn(' X = ',psy:5:2);
ReadLn;
end.
1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>