Задания по паскалю

[Metall]

Помогите кто-нить с задачками:

1. Дан одномерный массив Xn. Найти количество неотрицательных элементов массива, попадающих в интервал [C;D]. Напечатать все отрицательные элементыю

2. Дан одномерный массив Yk. Найти последний элемент с нечетным значением. Все элементы с четными номерами заменить найденным значением. Удалить все отрицательные элементы.

[Stilet]

1. Дан одномерный массив Xn. Найти количество неотрицательных элементов массива, попадающих в интервал [C;D]. Напечатать все отрицательные элементыю

С потолка:

const n=10000;
var x:array[1..n] of integer;cnt,i:integer;
begin
{Вводим и находим кол-во}
 for i:=1 to n do begin
  readln(x[i]);
  if x[i]<0 then inc(cnt); 
 end;
{Выводим отрицательные}
 for i:=1 to n do begin
  if x[i]<0 then write(x[i]:5);
 end;
end.

2.

Показывай наработки

[Metall]

Кол-во неотрицательных не считает, но отрицательные печатает

[profi]

Давайте свои наработки по первой задаче. А потом вторую поможем. Хотя бы сделайте до момента поиска положительных элементов (только ввод данных).

[Metall]

uses crt;
const n=10;
var x:array[1..n] of integer;cnt,i:integer;
begin
clrscr;
 for i:=1 to n do begin
  write ('x(',i,')=');
  readln(x[i]);
  if x[i]<0 then inc(cnt); 
 end;
 for i:=1 to n do begin
  if x[i]<0 then write(x[i]:5);
 end;
end.

[ОДИНОЧЕСТВО В СЕТИ]

Кол-во неотрицательных не считает

а вы то это откуда знаете? вы cnt на экран выведете и все увидите!

[profi]

а вы то это откуда знаете? вы cnt на экран выведете и все увидите!

Вообще-то тут ошибка в знаке(забыл вчера сказать)

if x[i]<0 then inc(cnt);

.

if x[i]>0 then inc(cnt);

Так верно.

[Stilet]

вы cnt на экран выведете и все увидите!

Ы-ы-ы ТАк вон че я забыл...

profi

Чето думал об отрицательных.