Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.