Виконати завдання в зошиті: 1.Складіть блок-схему та програму обчислення значення виразу (4*x +5'y) I (x-2"у).
Проілюструйте виконання цього алгоритму для двох наборів значень змінних. Підберіть
числа так, щоб кожного разу виконання алгоритму відбувалося по-іншому (зразок на
стор.143).
2.Складіть блок-схему, наведеного в заданні No1 на стор.152.
​

#include <iostream>

using namespace std;

int main()

{

int n, m;

int **arr;

int min;

cout << "Enter dimension of array (n/m)" << endl;

cin >> n >> m;

arr = new int *[n];

for (int i = 0; i < n; i++) {

 arr[i] = new int[m];

}

for (int i = 0; i < n; i++) {

 for (int j = 0; j < m; j++) {

  cout << "arr[" << i << "][" << j << "] = ";

  cin >> arr[i][j];

 }

}

cout << "Your array:" << endl;

for (int i = 0; i < n; i++)

{

 for (int j = 0; j < m; j++)

 {

  cout << arr[i][j] << " ";

 }

 cout << endl;

}

cout << "Min is: ";

min = arr[0][0];

for (int i = 0; i < n; i++) {

 for (int j = 0; j < m; j++) {

  if (min > arr[i][j]) {

   min = arr[i][j];

  }

 }

}

cout << min << endl;

return 0;

}

1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x  y');
for i:=1 to n do
writeln(x[i],'  ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.