Написать программу которая вводит n элементов массива и вычисляет произведение первого и последнего элемента массива

var

  a: array [1..50] of integer;

  i,n,p: integer;

begin

  repeat

    write ('razmer massiva: ');

    readln(n);

  until n in [1..50];

  for i: =1 to n do

    begin

    write ('a[',i,'] = ');

    readln(a[i]);

    end;

  p: =a[1]*a[n];

  writeln ('proizvedenie: ',p);

  readln;

end.

pascalabc.net

№1

begin

  var n : = readinteger;

  var a : = seqrandomreal(n, -99, 99).select(p -> round(p,;

  a.println;

  var ic : = n div 2;

  if a[ic] > a[ic+1] then

    a[ic] : = 1

  else if a[ic] = a[ic+1] then

    a[ic] : = 0

  else

    a[ic] : = (a[n-1] + a[n-2])/2;

  a.println  

end.

№2

begin

  var (a, x) : = readreal2('введите а и х: ');

  var y: real;

  if x < 0 then

    y : = 2 + x

  else if x = 0 then

    y : = 3 * a - 1

  else

    y : = a + x;

  print(y)

end.

ответ:

type man = record

        name: string;

        surname: string;

        date: record

            day: integer;

            month: integer;

            year: integer;

        end;

    end;

 

var people: array [1..100] of man;

    i,n,_year: integer;

    _name: string;

 

begin

    write('enter number of man: ');

    readln(n);

    for i : = 1 to n do

    with people[i] do

    begin

        writeln('man[',i,']: ');

        write('enter name: ');

        readln(name);

        write('enter surname: ');

        readln(surname);

        write('enter birthday day/month/year: ');

        readln(date.day, date.month, date.year);

        writeln;

    end;

    write('enter year: ');

    readln(_year);

    for i : = 1 to n do

    with people[i] do

        if (date.year = _year) then

            writeln('name: ',name,' surname: ',surname);

    writeln;

    write('enter name: ');

    readln(_name);

    for i : = 1 to n do

    with people[i] do

        if (name = _name) then

        begin

            write(surname,' ',name);

            writeln(' ',date.day,'.',date.month,'.',date.year);

        end;

    readln;

end.

объяснение: