Question

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

Answer 1

PascalABC.NET

Задание 1:

• begin
• var a := ReadArrInteger(10).Numerate.Where(x->x[1]>5);
• Println('Количество:', a.Count);
• a.Select(x->x[0]).Print
• end.

Задание 2:

• begin
• ReadString.Replace('о','').Print
• end.

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

Answer 2

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

Программа 1: Обработка массива

pascalCopy code
program ArrayProcessing;

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

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

  // Подсчет количества и вывод номеров элементов, больших 5
  Writeln('Элементы больше 5 находятся в следующих позициях:');
  for i := 1 to 10 do
  begin
    if arr[i] > 5 then
      Writeln('Позиция ', i);
  end;
end.

Программа 2: Удаление буквы "о"

pascalCopy code
program RemoveLetterO;

var
  text: array[1..6] of String;
  i, j: Integer;

begin
  // Ввод текста из 6 слов
  for i := 1 to 6 do
  begin
    Write('Введите слово ', i, ': ');
    Readln(text[i]);
  end;

  // Удаление буквы "о" из каждого слова и вывод результата
  Writeln('Текст после удаления буквы "о":');
  for i := 1 to 6 do
  begin
    for j := 1 to Length(text[i]) do
    begin
      if text[i][j] <> 'о' then
        Write(text[i][j]);
    end;
    Writeln;
  end;
end.

Просто скопируйте соответствующий код для каждой программы в среду разработки Pascal (например, Lazarus) и выполните его. Не забудьте сохранить файлы с расширением .pas.