На Паскаль

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.