задача на delphi

[Вячик]

Найти числа кратных трем и удалить их

код на паскале abc
const n=5;
type

mas=array[1..n]of integer;
procedure del(var a:mas);
var b:mas;
i,m,k:integer;
begin
for i:=1 to n do begin
   m:=0;
   if a[i] mod 3=0 then
   inc(m);
   if m=0 then begin
      inc(k);
      b[k]:=a[i];
      end;
   end;
writeln;

writeln('Изменённый массив');
for i:=1 to k do
writeln(b[i],' ');
end;
procedure sum(var a:mas);
var i,s:integer;
begin
s:=0;
for i:=1 to n do
 if a[i] mod 3=0 then  s:=s+a[i];
 writeln('сумма кратных 3 =', s);

end;
var
a:mas;
i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
 read(a[i]);
 del(a);
 sum(a);
 end.

как его переделать для делфи в однонаправленный список

[type_Oleg]

Если надо консольное приложение, то ничего переделывать не надо.
Только перед end. в конце поставить ReadLn;, чтобы окошко сразу не исчезало .

А если надо оконное приложение, то все эти Read и WriteLn меняйте на более удобные способы ввода-вывода ( Edit, Memo и т.д.)
А основная программа будет в обработчике Button1Click.

[Вячик]

спасибо

[type_Oleg]

Вот это я не заметил -

Сообщение от Вячик

в однонаправленный список

Насчет списка не знаю, вроде там через указатели надо, я этим не занимался.