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

@POGREB · Регистрация: 26.11.2010

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

Написать программу создания динамического целочисленного массива. ввести его значения с терминала и удвоить все значения,
ребят прошу помощи

@Puporev · 13.09.2011, 08:26

Pascal

uses crt;
Type
  TTmas=array[1..1] of integer;
  Tmas=^TTmas;
var
  a:Tmas;
  n,i:integer;
begin
clrscr;
randomize;
write ('Размер массива n=');
readln (n);
getmem(a,sizeof(TTmas)*n);
writeln('Введите элементы массива, целые числа:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a^[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a^[i],' ');
writeln;
writeln('Новый массив:');
for i:=1 to n do
 begin
  a^[i]:=2*a^[i];
  write(a^[i],' ');
 end;
writeln;
FreeMem(a,SizeOf(TTmas)*n);
readln
end.

@POGREB 2 / 2 / 0 Регистрация: 26.11.2010 Сообщений: 43
		1
	Написать программу создания динамического целочисленного массива. 12.09.2011, 23:44. Показов 1112. Ответов 1 Метки нет (Все метки) Написать программу создания динамического целочисленного массива. ввести его значения с терминала и удвоить все значения, ребят прошу помощи 0

	13.09.2011, 08:26

Опции темы

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

Решение