Question

30 БАЛЛОВ
Помогите решить два задания по информатике 10 класс.Написать надо на листке. язык: паскаль
1.Задать массив из 10-ти произвольных чисел. Найти сумму девятого и десятого элементов последовательности.
2.Массив А вводится с клавиатуры. Вывести массив А, в , котором положительные элементы возвести в квадрат.

Answer 1

Ответ:

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

Answer 2

Задание 1:

• begin
• var a := ArrRandom;
• a.Println;
• Print('Результат:',a[8]+a[9])
• end.

Задание 2:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• a.Transform(x->x>0?x*x:x);
• a.Print
• end.

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