Question

На Паскаль1.С клавиатуры вводится число. Осуществить линейный поиск элемента в массиве. Вывести номер элемента, равного данному, либо сообщение о том, что такого элемента в массиве нет. 2.Выполнить реверс массива из 10 элементов, заполненного случайными числами в интервале [-100; 100]. 3.Найти произведение всех элементов массива из 5 элементов, заполненного с клавиатуры.

Answer 1

Первая программа может выглядеть так:

uses crt;
const n=10;
type Mas=array [1..n] of integer;
Var A: Mas;
  i, x:integer;
  priznak: boolean;

Begin
 ClrScr;
 priznak:=false;
 WriteLn(' Massiv: ');
 for i:=1 to n do
     begin
       A[i]:=-100+random(200);
       Write(A[i]:5);
     end;
 WriteLn;
 Write(' X = '); ReadLn(X);
 WriteLn;
  for i:=1 to n do
        if X=A[i] then
        begin
        WriteLn (' X = ', A[i], '     Index = ', i);
        priznak:=true;
       end;
 if priznak=false then Writeln (' None...');

 ReadLn;
end.


2. А вот реверс:

uses crt;
const n=10;
type Mas=array [1..n] of integer;
Var A: Mas;
  i:integer;
 
Begin
 ClrScr;
  WriteLn(' Massiv: ');
 for i:=1 to n do
     begin
       A[i]:=-100+random(201);
       Write(A[i]:5);
     end;
 WriteLn;
  WriteLn(' Revers: ');
 for i:=n downto 1 do
       Write(A[i]:5);
 WriteLn;
 ReadLn;
end.


И. наконец, последняя программа:

uses crt;
const n=5;
 var i, x : integer;
     P:longint;

begin
 ClrScr;
 P:=1;
 WriteLn(' Wwod Massiva: ');
 for i:=1 to n do
     begin
       ReadLn (x);
       P:=P*x;
     end;
 WriteLn;
 WriteLn(' P = ', P);
 WriteLn;
 ReadLn;
end.

Answer 2

Конечно, вот пример программы на языке Pascal, который выполняет задачи, описанные в вашем запросе:

program ArrayOperations;

const
  ARRAY_SIZE = 10;

type
  IntArray = array[1..ARRAY_SIZE] of integer;

var
  arr: IntArray;
  i, numberToFind, product: integer;

procedure FillArrayRandomly(var arr: IntArray);
var
  i: integer;
begin
  Randomize;
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(201) - 100; // генерация чисел от -100 до 100
end;

procedure LinearSearch(arr: IntArray; numberToFind: integer);
var
  i: integer;
  found: boolean;
begin
  found := false;
  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] = numberToFind then
    begin
      writeln('Элемент ', numberToFind, ' найден в массиве на позиции ', i);
      found := true;
      break;
    end;
  end;
  if not found then
    writeln('Элемент ', numberToFind, ' не найден в массиве');
end;

procedure ReverseArray(var arr: IntArray);
var
  i, temp: integer;
begin
  for i := 1 to ARRAY_SIZE div 2 do
  begin
    temp := arr[i];
    arr[i] := arr[ARRAY_SIZE - i + 1];
    arr[ARRAY_SIZE - i + 1] := temp;
  end;
end;

begin
  // Ввод элементов массива с клавиатуры
  writeln('Введите ', ARRAY_SIZE, ' элементов массива:');
  for i := 1 to ARRAY_SIZE do
    readln(arr[i]);

// 1. Линейный поиск элемента
  writeln('Введите число для поиска в массиве:');
  readln(numberToFind);
  LinearSearch(arr, numberToFind);

// 2. Реверс массива
  writeln('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i], ' ');
  writeln;
  
  ReverseArray(arr);
  
  writeln('Массив после реверса:');
  for i := 1 to ARRAY_SIZE do
    write(arr[i], ' ');
  writeln;

// 3. Нахождение произведения всех элементов массива из 5 элементов
  product := 1;
  writeln('Введите 5 элементов массива:');
  for i := 1 to 5 do
  begin
    readln(arr[i]);
    product := product * arr[i];
  end;
  writeln('Произведение всех элементов массива из 5 элементов:', product);
end.

Эта программа делает следующее: 1. Заполняет массив из 10 элементов случайными числами в диапазоне от -100 до 100. 2. Проводит линейный поиск элемента, введенного с клавиатуры, и выводит номер позиции этого элемента в массиве (если найден) или сообщение о его отсутствии. 3. Выполняет реверс массива. 4. Находит произведение всех элементов массива из 5 элементов, введенных с клавиатуры.