Question

пожалуйста. паскаль

Answer 1

PascalABC.NET

Задание 1:

• begin
• var n := ReadInteger('Количество:');
• var a := ArrRandom(n,0,99);
• var b := ArrRandom(n,0,99);
• var c := ArrGen(n, i->a[i]+b[i]);
• a.Println;
• b.Println;
• c.Print
• end.

Задание 2:

• begin
• var n := 3;
• var K := MatrRandom(n,n,-99,99);
• K.Print;
• K.ElementsWithIndices.Where(x->n-x[1]=x[2]+2).Sum(x->x[0]).Print
• end.

Примеры работ: