Заполнить массив М(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в п

[Simca]

Заполнить массив М(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого четвертого элемента массива. Присвоить указателю адрес 7-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на значение 3-го элемента, увеличенное на 0.13. Напечатать его новое значение.
P/S/ народ помогите пожалуйста, а то дали последний шанс на сдачу! если не сдам то в армию заберут (((

[Аватар]

если не сдам то в армию заберут

В армии хорошо, чего плачешь?

используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель

Кроме того это явно не паскаль

[Simca]

Это паскаль ! знаешь хз как в армии но, что 1 год отучился и выгнали. 12 миллионов в некуда ушло как то печально

[Аватар]

12 миллионов в некуда ушло как то печально

И где столько стоит год обучения?

Ладно лентяй. Паскаля нет под рукой, не проверял.

var m: array[1..10] of Real;
    i: Integer;
    p: ^Real;

begin
  Randomize;
  WriteLn('Array');
  for i:=1 to 10 do begin m[i]:=Random; WriteLn(i,' ',m[i]:0:5); end;
  WriteLn('');

  p:=@m[1];
  for i:=1 to 10 do begin if i mod 4 = 0 then WriteLn(i,' ',p^:0:5); Inc(p); end;
  WriteLn('');

  p:=ptr(seg(m[7]),ofs(m[7]));
  WriteLn('7 ',p^:0:5);

  p^:=m[3]+0.13;
  WriteLn('7 ',p^:0:5);
  ReadKey;
end.

[Vanta11a]

На правах оффтопа:

И где столько стоит год обучения?

Белоруссия. У них в ходу миллиёны.

[Пепел Феникса]

Сообщение от Simca

Это паскаль ! знаешь хз как в армии но, что 1 год отучился и выгнали. 12 миллионов в некуда ушло как то печально

блин, а что ж не учился то?

[Rififi]

Simca

12 миллионов в некуда ушло как то печально

Пичалька, братюнь! лучше бы спустил всё на тусы, девочек и алкоголь, всяко полезнее бы вышло.