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

@Yokano · Регистрация: 01.03.2014

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

Сгенерировать случайным образом массив целых чисел. Разместить массив в динамической памяти. Найти сумму положительных элементов массива.

@Puporev · 07.09.2014, 07:59

Pascal

uses crt;
const max=100;
type uc=^integer;//указатель на элемент массива
var a:array[1..max] of uc; //массив указателей
    n,i,s:integer;
begin
randomize;
repeat
write('Размер массива от 1 до ',max,' n=');
readln(n);
until n in [1..max];
s:=0;
for i:=1 to n do
 begin
  new(a[i]); //выделяем память под элемент
  a[i]^:=-10+random(21); //передаем значение
  write(a[i]^:4);
  if a[i]^>0 then s:=s+a[i]^;//сумма положительных
 end;
writeln;
write('Сумма положительных=',s);
for i:=1 to n do
dispose(a[i]) //освобождаем память
end.

@Yokano 1 / 1 / 0 Регистрация: 01.03.2014 Сообщений: 67
		1
	Сгенерировать случайным образом массив целых чисел и разместить его в динамической памяти 06.09.2014, 22:29. Показов 2853. Ответов 1 Метки нет (Все метки) Сгенерировать случайным образом массив целых чисел. Разместить массив в динамической памяти. Найти сумму положительных элементов массива. 0

Опции темы

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

Решение