Заполнить массив случайными значениями. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого 5-го элемента

@art_loco · Регистрация: 14.10.2011

Студворк — интернет-сервис помощи студентам

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

@zhan313 · 13.03.2012, 16:07

Pascal

var
a:array[1..10]of integer;
p1,p2:^integer;
i,j:integer;
begin
  writeln('Ihodny massiv');
  for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:4); end;
  writeln;
  p1:=addr(a[1]);
  for i:=1 to 10 do if (i mod 5) = 0 then write(i:2,' element=',a[i]:4,', ');
  writeln;
  p2:=addr(a[8]);
  writeln('8 element =',p2^);
  p2^:=-1;
  writeln('new 8 element =',p2^);
  writeln('Poluchenny massiv');
  for i:=1 to 10 do write(a[i]:4); writeln;
end.

Так подойдет ? (Turbo Pascal)

@art_loco 0 / 0 / 1 Регистрация: 14.10.2011 Сообщений: 58
		1
	Заполнить массив случайными значениями. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого 5-го элемента 13.03.2012, 11:43. Показов 1481. Ответов 1 Метки нет (Все метки) Заполнить массив М(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого 5-го элемента массива. Присвоить указателю адрес 8-го элемента, напечатать его значение, используя текущий базовый адрес сегмента и смещение с преобразованием в значение типа указатель. Заменить его содержимое на -1. Напечатать его новое значение. 0

Опции темы

Заполнить массив случайными значениями. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого 5-го элемента

Решение