Question

Только новое, а не списанное с других сайтов, и по программе составить 10 класса, пожалуйста! Составить программу на Паскале для обработки одномерного массива из 10 элементов. Значения элементов задать вводом с клавиатуры самостоятельно. Посчитать количество и напечатать номера элементов, которые больше 5.

Answer 1

Ответ:

begin

 // 1

 var a := ReadArrInteger('Введите 10 целых чисел:', 10);

 var b := a.Indices((v, i) -> v > 5);

 Println('Количество:', b.Count);

 Print('Номера:');

 b.Select(p -> p + 1).Println;

 // 2

 Readln;

 ReadString('Введите текст:').Replace('о', '').Print

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет обработку одномерного массива из 10 элементов, находит количество и печатает номера элементов, которые больше 5:

pascalCopy code
program ArrayProcessing;

var
  arr: array[1..10] of Integer;
  i, count: Integer;

begin
  // Ввод значений элементов с клавиатуры
  for i := 1 to 10 do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

  // Подсчет количества и печать номеров элементов, больших 5
  count := 0;
  Write('Элементы, которые больше 5: ');
  for i := 1 to 10 do
  begin
    if arr[i] > 5 then
    begin
      Write(i, ' ');
      count := count + 1;
    end;
  end;

  // Печать общего количества элементов, больших 5
  WriteLn();
  WriteLn('Общее количество элементов, больших 5: ', count);

end.

В данной программе мы используем одномерный массив arr из 10 элементов для хранения введенных пользователем значений. Затем мы проходим по массиву и проверяем каждый элемент. Если элемент больше 5, мы увеличиваем счетчик count и печатаем номер элемента. В конце программы выводится общее количество элементов, которые больше 5.

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