Определить, сколько места занимает в динамической памяти массив

@Sanchezzz · Регистрация: 20.09.2012

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

Заполнить массив целых чисел случайным образом. Размерность массива не ограничена (в рамках динамической памяти), задается с клавиатуры. Определить, сколько места занимает в динамической памяти данный массив, а также найти наименьшее из четных чисел, входящих в последовательность.

Kodzaev · 05.07.2013, 23:49

В ABC не знаю, но в Турбо так:

Pascal

Type
  mas = Array [1..1] of Integer;
Var
  x: ^mas;
  i,k,min: Integer;
  n: Longint;
BEGIN
{$R-}
Write('Введите размерность массива: ');
Readln(n);
GetMem(x,SizeOf(Integer)*n);
k:=0;
min:=Maxint;
For i:=1 to n do
begin
  x^[i]:=Random(99)+1;
  If x^[i] mod 2=0 Then
  begin
    Inc(k);
    If x^[i]<min Then
    min:=x^[i];
  end;
  Write(x^[i],' ');
end;
Writeln;
Writeln('Массив занимает ',SizeOf(Integer)*n,' байт');
If k<>0 Then
Writeln('Наименьшее четное = ',min)
Else
Writeln('Четных нет');
FreeMem(x,SizeOf(Integer)*n);
Readln
END.

@Sanchezzz 1 / 1 / 0 Регистрация: 20.09.2012 Сообщений: 34
		1
	Определить, сколько места занимает в динамической памяти массив 05.07.2013, 23:03. Показов 3970. Ответов 1 Метки нет (Все метки) Заполнить массив целых чисел случайным образом. Размерность массива не ограничена (в рамках динамической памяти), задается с клавиатуры. Определить, сколько места занимает в динамической памяти данный массив, а также найти наименьшее из четных чисел, входящих в последовательность. 0

Опции темы

Определить, сколько места занимает в динамической памяти массив

Решение