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.

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

Answer 3

Конечно, я помогу вам с заданиями. Вот решение на языке Паскаль для каждой из задач:

1. Задание: Задать массив из 10 произвольных чисел. Найти сумму девятого и десятого элементов последовательности.

pascalCopy code
program Task1;
var
  arr: array[1..10] of Integer;
  sum: Integer;
begin
  // Заполнение массива случайными числами
  Randomize;
  for var i := 1 to 10 do
    arr[i] := Random(100); // Генерирует случайное число от 0 до 99

  // Вычисление суммы девятого и десятого элементов
  sum := arr[9] + arr[10];

  // Вывод результата
  WriteLn('Сумма девятого и десятого элементов: ', sum);
end.

2. Задание: Массив А вводится с клавиатуры. Вывести массив А, в котором положительные элементы возвести в квадрат.

pascalCopy code
program Task2;
var
  A: array[1..10] of Integer;
  i: Integer;
begin
  // Ввод массива А с клавиатуры
  WriteLn('Введите элементы массива А:');
  for i := 1 to 10 do
  begin
    Write('A[', i, '] = ');
    ReadLn(A[i]);
  end;

  // Возведение положительных элементов в квадрат
  for i := 1 to 10 do
  begin
    if A[i] > 0 then
      A[i] := A[i] * A[i];
  end;

  // Вывод массива А с возведенными в квадрат положительными элементами
  WriteLn('Массив А с возведенными в квадрат положительными элементами:');
  for i := 1 to 10 do
    WriteLn('A[', i, '] = ', A[i]);
end.

Вы можете скопировать эти программы на листок и выполнить их в среде разработки Pascal. Удачи с выполнением заданий! Если у вас есть ещё вопросы, не стесняйтесь задавать.