Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3] := 2;
A[4] := 3;
B := A[3];
A[3] := A[4];
A[4] := B?
Варианты ответа:
1. A [3] = 3; A [4] = 1
2. A [3] = 3; A [4] = 3
3. A [3] = 3; A [4] = 0;
4. A [3] = 3; A [4] = 2
1) Код программы;
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int *mas, x;
cout << "Введите последний элемент массива(X): ";
cin >> x;
mas = new int[x];
for (int i = x-1; i >= 0; --i)
mas[i] = i+1;
cout << "Массив:" << endl;
for (int i = 0; i < x; ++i)
cout << mas[i] << ' ';
}
2) Код программы;
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int *mas, n;
cout << "Введите N: ";
cin >> n;
mas = new int[n];
for (int i = 0; i < n; ++i)
mas[i] = pow(2, i+1);
cout << "Массив:" << endl;
for (int i = 0; i < n; ++i)
cout << mas[i] << ' ';
}
1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.