Pascal ABC.NET[Указатель]

[Romeshek]

Подскажите, как данную программу реализовать через указатель, и если можно, то с комментариями.

var a:array[1..10] of integer; 
s,k,n,i,F:integer; 
BEGIN 
s:=0; 
k:=0; 
Write('Введите F = '); 
readln(F); 
writeln ('Введите элем. массива :'); 
for i:=1 to 10 do 
begin 
readln(a[i]); 
if a[i] > 0 then 
k:= k + 1; 
if (i mod 3=0) and (a[i] <> F) then 
s := s + a[i]; 
end; 
Writeln('Cумма = ' ,s); 
writeln('Кол-Во элементов больше нуля = ',k); 
end.

[СтудПом]

Конкретно вряд ли кто подскажет. Проще написать программу. Если хотите написать самостоятельно, то надо читать учебник дальше - динамические структуры.

В общем:
-вместо массива элементов, надо создать "список" элементов
-элемент состоит из "полезных" данных (в вашем случае это будет одно поле integer) и поля со ссылкой на следующий элемент

Элемент списка - это запись с особенным полем содержащим ссылку на такой же элемент.

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

[Sciv]

А можно проще:

type
  TIntArray = array [1..10] of integer;
  PIntArray = ^TIntArray;

И дальше работать с указателем на массив

[Serge_Bliznykov]

Сообщение от Sciv

И дальше работать с указателем на массив

можно. но, с учётом того, что в Pascal ABC.NET есть нормальные динамические массивы, практической пользы в этом мало.

Сообщение от Romeshek

как данную программу реализовать через указатель

указатель на что? На массив? На элементы массива? Или вообще нужно без массива сделать, используя динамические структуры (связный список)?

[Sciv]

Сообщение от Serge_Bliznykov

Pascal ABC.NET есть нормальные динамические массивы

Ну я этого не знал

[Romeshek]

указатель на что? На массив? На элементы массива? Или вообще нужно без массива сделать, используя динамические структуры (связный список)?

Я так понял, что на массив.

[Serge_Bliznykov]

Сообщение от Romeshek

Я так понял, что на массив.

пост #3.
указатель на статический массив.