Question

СРОЧНО! Помогите с двумя задачами!!!

Answer 1

Ответ:

Дан во вложениях.

Answer 2

Задание 1:

• begin
• var a := ArrRandom(10, 0, 100);
• var b := ArrGen(10, x -> a[x] + sqr(x + 1));
• for var i := 0 to 9 do Println(a[i], b[i]);
• end.

Задание 2:

• begin
• var A := ArrRandom(5, 0, 100);
• var B := ReadArrReal(5);
• var C := ArrGen(5, x -> A[x] + B[x]);
• var D := ArrGen(5, x -> A[x] - B[x]);
• Println('Результат:');
• Println('A:',A.JoinToString);
• Println('B:',B.JoinToString);
• Println('C:',C.JoinToString);
• Println('D:',D.JoinToString);
• end.

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