Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения четных элементов массива

@Lacre · Регистрация: 04.11.2013

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

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

Добавлено через 12 часов 3 минуты
Помогите пожалуйста

Добавлено через 42 минуты
Дайте кто код программа похожая на это задание,чтобы можно было переделать.Пожалуйста помогите

Добавлено через 1 час 58 минут
Помогите пожалуйста.

Добавлено через 27 минут
Написал код вот только он что-то не хочет работать.Помогите ошибки исправить.Пожалуйста

Pascal

type mas=array[1..10] of shortint;
var i,n:byte;
qwe:^mas;
a:mas;
procedure one;
begin
qwe:=@a;
for i:=1 to n do
write(qwe^[i]:5);
writeln;
end;
begin
randomize;
write('Vvedite razmer massiva:');
readln(n);
write('Maasiv:');
for i:=1 to n do a[i]:=random(66)-random(66);
one;
writeln;
qwe:=@a;
write('Kajdii chetnii element: ');
for i:=1 to n do if i div 2=0 then write(qwe^[i]:5);
writeln;
writeln;
write('Tretii element');
qwe:=ptr(seg(a[1]),ofs(a[1])+(sizeof(byte)*2));
writeln(qwe^[1]);
write('Tretii elemet zameniem na 0.001');
qwe^[1]:=0.001;
writeln(qwe^[1]);
writeln;
write('Polychenii massiv:');
one;
readkey;
end.

Добавлено через 7 минут
как заменить 3 элемент массива на 0.001??

	23.03.2014, 13:35

Опции темы