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

Oleg

61

Задача 1: Вот программный код на Паскале, который решит данную задачу:

pascal

program CountElements;

var

  arr: array[1..10] of integer;

  i, count: integer;

begin

  // Ввод элементов массива с клавиатуры

  writeln("Введите значения элементов массива:");

  for i := 1 to 10 do

  begin

    write("Элемент ", i, ": ");

    readln(arr[i]);

  end;

  

  // Подсчет количества элементов больше 5 и их вывод на экран

  count := 0;

  writeln("Элементы больше 5 находятся на следующих позициях:");

  for i := 1 to 10 do

  begin

    if arr[i] > 5 then

    begin

      write(i, " ");

      inc(count);

    end;

  end;

  writeln;

  writeln("Всего элементов больше 5: ", count);

end.

Эта программа сначала запрашивает 10 целочисленных элементов массива у пользователя, а затем подсчитывает количество элементов, которые больше 5. Найденные элементы выводятся на экран вместе с их позициями (номерами) в массиве.

Задание 2: Ниже приведен программный код на Паскале, который удалит все буквы «о» из заданного текста из 6 слов:

pascal

program RemoveO;

var

  text: array[1..6] of string;

  i: integer;

begin

  // Ввод текста с клавиатуры

  writeln("Введите текст из 6 слов:");

  for i := 1 to 6 do

  begin

    write("Слово ", i, ": ");

    readln(text[i]);

  end;

  

  // Удаление всех букв "о" из каждого слова

  writeln("Текст без букв "о":");

  for i := 1 to 6 do

  begin

    text[i] := StringReplace(text[i], "о", "", [rfReplaceAll, rfIgnoreCase]);

    writeln(text[i]);

  end;

end.

Эта программа позволяет пользователю ввести 6 слов и затем удаляет все буквы "о" из каждого слова. Измененный текст выводится на экран по одному слову в строке.