Дан одномерный числовой массив. вычислить в какой позиции массива встретилось число со значением a.

 const nx =30;var i,j,n,a:integer;
M,B:array[1..nx] of integer;
begin 
Randomize;
write('Введите число элементов массива n'); Read(n);
write('Введите число а '); Read(a);
for i:=1 to n do begin
M[i]:= random(10)-5;
if M[i] = a then begin j:=j+1;B[j]:=i;end;
write(M[i]:3);end;writeln;
for i:=1 to j do 
writeln('Элемент массива совпадает а = ' ,a, ' на позиции ', B[i]);end.

Uses crt;
var p,a,b,c,xa,xb,xc,ya,yb,yc,ab,ac,bc,xab,yab,xbc,ybc,xac,yac:real;
s:real;
begin
writeln('Введите х координаты вершин а и b');
readln(xa,xb);
writeln('Введите y координаты вершин а и b');
readln(ya,yb);
xab:=xb-xa;
yab:=yb-ya;
ab:=sqrt(xab*xab+yab*yab);
writeln('Введите х координаты вершин а и с');
readln(xa,xc);
writeln('Введите y координаты вершин а и c');
readln(ya,yc);
xac:=xc-xa;
yac:=yc-ya;
ac:=sqrt(xac*xac+yac*yac);
writeln('Введите х координаты вершин b и с');
readln(xb,xc);
writeln('Введите y координаты вершин b и c');
readln(yb,yc);
xbc:=xc-xb;
yab:=yc-yb;
bc:=sqrt(xbc*xbc+ybc*ybc);
p:=(ab+bc+ac)/ 2;
s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln(s);
end.

Объяснение:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

 

namespace example

{

   class Program

   {

       static void Main(string[] args)

       {

           int x, answer1, answer2;

           Console.Write("Введите x : ");

           x = int.Parse(Console.ReadLine());

           answer1 = 2*x+3*Convert.ToInt32(Math.Pow(x,2))-4*Convert.ToInt32(Math.Pow(x,3));

           answer2 = 1+2*x+3*Convert.ToInt32(Math.Pow(x,2))+4*Convert.ToInt32(Math.Pow(x,3));

           Console.WriteLine("Значение первого выражения : " + answer1);

           Console.WriteLine("Значение второго выражения : " + answer2);

           Console.ReadLine();

       }

   }

}