Легкая задачка для асов Паскаль Турбо

[Suslik-LICHNOST]

Дамы и господа, здравствуйте! Снова не могу обойтись без вашей помощи. Если у кого есть свободная минутка, пожалуйста, не сочтите за труд, написать программку по данной задаче:

Определить количество отрицательных элементов массива D длины m. Найти индекс максимального элемента и его значение.

[Suslik-LICHNOST]

я в игноре?

[ArtInt]

Сообщение от Suslik-LICHNOST

я в игноре?

Во первых задача довольно тривиальная (легкая) и решается практически на основе уже решенных задач.
Во вторых, если бы сутки прошли и никто не ответил, то да, тут еще можно говорить что в игноре. Но вроде бы прошло всего несколько часов.

Как бы там не было выкладываю код, из которого видно что все довольно просто:

var
  a: array [1..20] of integer;
  max, count, i, N, maxindex : integer;
begin
clrscr;
writeln ('Vvedite kol-vo elementov massiva');
readln (N);
for i:=1 to N do
begin
  write ('a[',i,']=');
  readln (a[i])
end;

max:=a[1];
if a[1]<0 then count:=count+1;
for I := 2 to n do    // Iterate
begin
  if max<a[i] then
  begin
  max:=a[i];//индекс макисимального элемента
  maxindex:=i;
  end;

  if a[i]<0 then count:=count+1;//количество отрицательных элементов


end;    // for


writeln ('Nomer maximalnogo elementa: ', maxindex,'; ', 'ego znachenie: ', max);
writeln ('Kolichestvo otrizatel: ', count);
readln;

[Suslik-LICHNOST]

большое спасибо! у меня нет сложных задач. это все - основы...

[Suslik-LICHNOST]

Еще одна задачка... Если можно..Все элементы массива А длины n с индексами от 1 до Ind, где Ind — ин-декс минимального элемента, занести в массив В. В массиве В опреде-лить количество отрицательных элементов.

[ArtInt]

Как в массиве определить количество отрицательных элементов - это уже реализовывалось в посте #23. Занесение в массива можно делать в цикле, а внутри делать b[i]:=a[i];
Но как понять это?

Все элементы массива А длины n с индексами от 1 до Ind, где Ind — ин-декс минимального элемента

Это уже дано или надо сделать? Как понять с индексами от 1 до Ind?

[Suslik-LICHNOST]

ой! сделал! САМ! спасибо, не надо делать. простите, что отвлек.