Пару "ошибочек" в программе.

[Карась]

Задача: Дана непустая последовательность ненулевых целых чисел, Определить сколько раз поменялся знак. ( 1 , -3 , 8 , 14 , -15 : знак поменялся 3 раза)

program Znaki;

{$APPTYPE CONSOLE}

var mas: array [1..10] of integer;
    i, Col: integer;
    z, Rez: string;

begin

Writeln ('Zapolnite masiv...');
for i := 1 to 10 do Readln(mas[i]); Writeln ('Gotovo...');
Writeln;

for i := 1 to 10 do
 begin
 if mas[i] = 0 then Break Else
 if mas[i]>0 then z := z + '1' Else z := z + '0';
end;

for i := 1 to Length(z) do
if z[i] <> z[i+1] then Rez := Rez + z[i];
Col := Length(Rez) - 1;
if Length(Rez) <> 0 then
 Writeln ('Znak smenilsa ',Col,' raza')
Else
 Writeln ('Znak nesmenilsa....');

Readln; Readln;
end.

Чтото немогу сделать чтоб массив выводил не в столбик а в строчку.
Тобишь он ввыводит щас так:
1
2
3
4
...

А хочется так: 1 2 3 4 ...

А также в конце программы почемуто без второго Readln необойтись

Чтото я недогоняю..... помогите.

[Alex21]

Writeln меняем на Write

[Карась]

Какой именно?

Writeln ('Zapolnite masiv...');
for i := 1 to 10 do Readln(mas[i]); Writeln ('Gotovo...');
Writeln;

В цикле выполняется только Readln(mas[i]); Writeln сообщает в самом конце о заполнненом массиве....

[Alex21]

Ты имеешь ввиду ввод массива(а не вывод)?
тогда:

  Read(mas[i]); // вместо ReadLn

ввод значений через пробел

[TimeShift]

for i := 1 to 10 do Readln(mas[i]); Writeln ('Gotovo...');
Writeln;

Readln меняем на Read. При вводе в консоли не нажимай ENTER а отделяй числа пробелами, после 10 - го введенного числа жмешь ENTER. На счет двух Readln незнаю у самого такая же фигня.

[Карась]

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

Readln меняем на Read. При вводе в консоли не нажимай ENTER а отделяй числа пробелами, после 10 - го введенного числа жмешь ENTER. На счет двух Readln незнаю у самого такая же фигня.

Верно. Надо будет разобраться как это так работает....

[Abbatik]

Сообщение от Карась

А также в конце программы почемуто без второго Readln необойтись.

Используй readkey.

uses crt;.....
...
readkey;
end.

[Карась]

Используй readkey.

Тоже думал о нём когда разбирался

Почемуто (Делфи 7) нету у меня модуля crt; Поиск выдал только какуюто crtl;

Я так полагаю что его надо скачнуть....... незнаю почему его нету.. но сейчас будет.. наверное..

АДД: выяснилось что это модуль заточен под ДОС, есть он только у Турбо Паскаля.

[Abbatik]

Сообщение от Карась

Тоже думал о нём когда разбирался

Почемуто (Делфи 7) нету у меня модуля crt; Поиск выдал только какуюто crtl;

Я так полагаю что его надо скачнуть....... незнаю почему его нету.. но сейчас будет.. наверное..

АДД: выяснилось что это модуль заточен под ДОС, есть он только у Турбо Паскаля.

Больно прога на Делфи не похожа!
Думал на паскале написано!
Про Делфи чтото я не знаю даже!