#include <iostream>
#include <iomanip>
using namespace std;
int** matrCreate(int n)
{
int** M;
M = new int *[n];
for (int i = 0; i < n; i++)
M[i] = new int [n];
return M;
}
void matrInit(int** M, int n)
{
srand(time(0));
for(int i = 0; i < n; i++)
for(int j = 0; j < n; j++)
M[i][j] = rand()%199 - 99 ;
}
void matrPrint(int** M, int n)
{
for(int i = 0; i < n; i++)
{
for(int j = 0; j < n; j++)
cout << setw(5) << M[i][j];
cout << endl;
}
}
void matrTransform(int** M, int n)
{
int im, jm, max = -1000, s = 0;
for(int i = 0; i < n; i++)
{
for(int j = 0; j < n; j++)
{
if (M[i][j] > max)
{
max = M[i][j];
im = i;
jm = j;
}
if (i == j)
s += M[i][j];
}
}
M[im][jm] = s;
}
void clearMem(int** M, int n)
{
for (int i = 0; i < n; i++)
{
delete [] M[i];
}
delete [] M;
}
int main()
{
int n;
cin >> n;
int **A;
A = matrCreate(n);
matrInit(A, n);
matrPrint(A, n);
cout << endl;
matrTransform(A, n);
matrPrint(A, n);
clearMem;
return 0;
}
Задание 1:
beginvar n := 0;while (not TryRead(n,'Введите количество чисел:')) or (n<0) do Writeln('неверный ввод');Writeln; if n=0 then Write('Чисел нет') else begin var a := ReadArrInteger('Введите числа:',n); Println('Сумма:',a.Sum); Println('Произведение:',a.Product); end end.Задание 2:
uses GraphABC, ABCObjects; beginWindow.SetSize(300,200); var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2); var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2); OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end; end.Задание 3:
beginWriteln(' I: X:');SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2} {1}',x[0],x[1])) end.Примеры работ:
Відповідь:
А) количество точек из которых складывается изображение.
Пояснення:
Количество точек по вертикали и горизонтали.