Работа с числовыми и символьными массивами.

[Камаванай]

Информатики толком не было целый год. Уволилось два препода. Теперь ведет зав. кафедрой. Дрючит. Но вошла в положение и дала две лабораторки. Первую написал с горем на попалам на поератор if, а вот с массивами полный каюк Помогите пожалуйста


Имеется одномерный массив А, состоящий из N произвольных чисел (А(N)), среди которых есть положительные отрицательные и равные нулю. Напечатать только те числа из массива, которые образуют растущую последовательность.

[Mad_Cat]

вроде так

i:=1;
while i<n do begin
while (a[i]<a[i+1]) and (i<=n) do
begin
Writeln(a[i]);
inc(i);
end;
inc(i);
end;

[Камаванай]

Спасибо большое, что ответили! но я настолько нуб, что после слова Program по массивам я вообще не имею понятия, что писать

[Hacker19_90]

предлагаю так
Если последовательностей несколько

uses
  crt;
var
  a: array of integer;
  count: integer;
  i: integer;
begin
  clrscr;
  WriteLn('Count of number:');
  ReadLn(count);
  SetLength(a, count);
  Writeln('OutPut:');
  Write(a[0], ' ');
  for i := 1 to (count-1) do
    if a[i] > a[i-1] then Write(a[i], ' ')
    else begin
      WriteLn;
      Write(a[i], ' ');
    end;
  WriteLn;
  ReadKEy;  
end.

пример

ввели
1 2 3 4 5 1 2 5 4 1 2
выведет
1 2 3 4 5
1 2 5
4
1 2

[Камаванай]

Спасибо большое! Выручили! Мир стал чуточку добрее

[Камаванай]

Аааа, полный каюк Пришел написал, не работает и ладно бы только это! информатичка сказала, что вообще не знает такие команды типа count. Достопочтенные, прошу пожалуйста написать прогу по паскалю.

[s-andriano]

А где Вы увидели такую команду?

[BDA]

Во-первых, вы должны были разобраться в написанном и убедить преподавателя, что count, не команда, а переменная.
Во-вторых, Hacker19_90 упорно использует динамические массивы, которых нет в Турбо Паскале. Соответственно, программа не работает.
В-третьих, исправленный вариант:

uses
  crt;

const
  n = 100;

var
  a: array[1..n] of integer;
  count: integer;
  i: integer;

begin
  clrscr;
  WriteLn('Count of number:');
  repeat
    ReadLn(count);
  until (count <= n) and (count > 0);
  for i := 1 to count do
  begin
    write('a[', i, ']: ');
    readln(a[i]);
  end;
  Writeln('Output:');
  Write(a[1], ' ');
  for i := 2 to count do
    if a[i] > a[i - 1] then Write(a[i], ' ')
    else begin
      WriteLn;
      Write(a[i], ' ');
    end;
  WriteLn;
  ReadKEy;  
end.

[Камаванай]

Мне тут написали попроще и понятнее для моего уровня знаний, вот: http://cs405031.userapi.com/v4050316...pmonqtRc-A.jpg (этот вариант уже проверен)
Честно говоря я многое из того, что вы написали вижу впервые. Помогите пожалуйста нарисовать блок-схему к ней.

[BDA]

Да, предложенный выше вариант сложнее приведенного вами, но не намного.
Для рисования блок-схем отлично подойдет FCEditor (есть на рутрекере).

Кстати, ваш вариант (на фото) мне не понравился. Он будет очень странно работать на таких входных данных:
4 7 3 6 1 2
Напечатает программа следующее:
4 3 1
Да еще и вылезет за пределы массива.