Дан массив. все его элементы умножить на последний элемент.

const

  n = 10; //количество элементов массива

var 

  a: array [1..n] of real;

  i: integer;

begin

  for i: = 1 to n do 

  begin

    writeln('введите ', i, ' элемент массива');

    readln(a[i]); //вводим очередной элемент массива

  end;

  write('исходный массив: ');

  for i: = 1 to n do 

    write(a[i], '   '); //выводим исходный массив

  writeln; //перевод на новую строку

  write('полученный массив: ');

  for i: = 1 to n do

  begin 

    a[i]: = a[i] * a[n]; //элемент массива умножаем на последний элемент

    write(a[i], '   '); //выводим полученный элемент массива

  end;

end.

в 4-м тыс. до  н.  э. из многих небольших территориальных образований  — номов  — возникло два политических объединения  — верхний египет и нижний египет (со столицами в иераконполе и буто). создание единого государства приписывают правителю верхнего египта менесу. столицей объединённого государства около 3000  г. до  н.  э. стал мемфис.

только какое отношение это имеет к информатике?

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.