Дельфи 7. Дан одномерный массив

[pigtak]

Работа в делфи 7.
Дан одномерный массив. Найти количество смен знака между соседними элементами массива.
просьба написать все начиная от "var".

[Roof]

364817748 - стучись.

[АvGuR]

var a:array[1..100] of double;
 i,n,sz:integer;
begin
sz:=0;
write('N=');
read(n);
for i:=1 to n do
readln(a[i]);
writeln;
Writeln('MaccuB')
for i:=1 to n-1 do begin
if a[i]*a[i+1]<0 then sz:=sz+1; 
write(a[i]:6:3);
end;
writeln(a[n]:6:3);
write ('CMEH 3HAKA:',sz);
readln;
end.

[pigtak]

это на паскале а нада на дэлфи

[Alex_FF]

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

это на паскале а нада на дэлфи

Delphi хоть раз в глаза видел?

[pigtak]

видел. я его тока начал проходить и это написано точно не на дэлфи7

[Alex_FF]

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

видел. я его тока начал проходить и это написано точно не на дэлфи7

Это будет работать и на паскале, и на delphi.
просто на delphi еще нужно дописать в начале директиву {$APPTYPE CONSOLE}.

Delphi - это среда разработки, а язык на котором в ней пишут называется Object Pascal.