написать код на Pascal. Заранее благодарю за поддержку <3
Зд. 1 Сформировать массив В(4,6) у которого элементы первой стоки равны единицы, второй строки равны двум, третьей строки сумме индексов (сумме номера строки и столбца на пересечении которых стоит элемент), четвёртой строки произведению своих индексов. Вывод созданного массива выполнить в виде таблицы.
Зд. 2 Дан массив D(M, N). Сформировать массив T, элементы которого вычисляются по формуле: T[i,j]= D[I,j]4 – i*j. Вывести оба массива в два столбца.
Зд. 3 Дан массив А(7, 5). Найти:
一)Сумму и произведение всех его элементов;
二)Сумму элементов стоящих в третьей строке;
三)Произведение элементов стоящих в пятом столбце;
四)Суммы элементов стоящих в одной строке, для каждой строки.
#include <iostream>
typedef long long ll;
using namespace std;
bool ll_is_valid(ll t, ll N, ll x, ll y)
{
return t / x + (t - x) / y >= N;
}
ll f(ll N, ll x, ll y)
{
ll R = 1;
while (!ll_is_valid(R,N,x,y)) R *= 2;
ll L = R / 2;
while(R - L > 1)
{
ll M = (L + R) / 2;
if (!ll_is_valid(M,N,x,y)) {L = M;}
else {R = M;}
}
return R;
}
int main()
{
ll N,x,y;
cin >> N >> x >> y;
if(x > y) swap( x, y );
cout << f(N, x, y) << std::endl;
}
#include <cstdlib>
#include <ctime>
int main()
{
using namespace std;
cout << "Enter size of array: ";
int N;
cin >> N;
int * ARR = new int[N];
srand(time(0));
int i;
for (i = 0; i < N; ++i)
ARR[i] = rand() % 100 + 1;
cout << "Here is an original array:\n";
for (i = 0; i < N; ++i)
cout << ARR[i] << " ";
cout << endl;
int temp = ARR[N - 1];
for (i = N - 1; i > 0; --i)
ARR[i] = ARR[i - 1];
ARR[0] = temp;
cout << "\nHere is a new array:\n";
for (i = 0; i < N; ++i)
cout << ARR[i] << " ";
cout << endl;
return 0;
}