Массивы в Паскале

[bwitcher]

Всем привет! Ребят, нужна ваша помощь в решении двух задачек по массивам:
1) Массив К(n) заполнен случайными числами от -15 до 15.Определить количество отрицательных элементов и их индексы.
2) Задан массив А(n).Вычислить сумму произведений всех пар соседних чисел.
Поможете? Заранее спасибо!

[k0tone]

стучи: id19336767

[rubius2008]

1.

for i:=1 to n do k[i]:=random(31)-15;
write('Индексы: '); for i:=1 to n do if k[i]<0 then begin write(i,' '); col:=col+1;end;
writeln;
writeln('Количество = ',col);

[k0tone]

1) Массив К(n) заполнен случайными числами от -15 до 15.Определить количество отрицательных элементов и их индексы.

program first;

 uses
   crt;

 const
   n=10;

 var
   K:array [1..n] of integer;
   i,kol:integer;

 begin
   clrscr;
   randomize;
   for i:=1 to n do
     begin
       K[i]:=random(31)-15;
       write(K[i]:4);
     end;

   kol:=0;
   writeln;
   writeln('Index:');
   for i:=1 to n do
   if K[i]<0 then
     begin
       kol:=kol+1;
       write(i:4);
     end;
   writeln;
   writeln('kol-vo:');
   writeln(kol:4);

   readkey;
 end.

2) Задан массив А(n).Вычислить сумму произведений всех пар соседних чисел.

program second;

 uses
   crt;

 const
   n=10;

 var
   A:array [1..n] of integer;
   i,sum:integer;

 begin
   clrscr;
   randomize;
   for i:=1 to n do
     begin
       A[i]:=random(31)-15;
       write(A[i]:4);
     end;

   sum:=0;
   for i:=1 to n do
     begin
       inc(i);
       sum:=sum+(A[i]*A[i-1]);
       writeln(sum:4);
     end;

   writeln;
   writeln(sum:4);

   readkey;
 end.

[bwitcher]

1) По заданию же нужно найти кол-во и индексы отрицательных чисел, присутствующих в массиве. А твоя программа находит числа от -15 до 15, которые в массиве отсутствуют. Или я неправ?

[vovk]

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

1) По заданию же нужно найти кол-во и индексы отрицательных чисел, присутствующих в массиве. А твоя программа находит числа от -15 до 15, которые в массиве отсутствуют. Или я неправ?

Неправ это слабо сказано..

[bwitcher]

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

Неправ это слабо сказано..

Извиняюсь, невнимательно посмотрел. Все правильно

[bwitcher]

А можно еще 2 задачки?
1) Дан одномерный массив Н(n).Определить индексы всех равных элементов.
2) Дан одномерный массив А(n), состоящий из целых чисел. Переписать из него в одномерный массив В(n) все нечетные числа. Если нечетных чисел в массиве А нет, то вывести на экран сообщение «Нет», иначе вывести на экран массив В.

[k0tone]

2) Дан одномерный массив А(n), состоящий из целых чисел. Переписать из него в одномерный массив В(n) все нечетные числа. Если нечетных чисел в массиве А нет, то вывести на экран сообщение «Нет», иначе вывести на экран массив В.

program second;

  uses
    crt;

  const
    n=10;

  var
    a:array [1..n] of integer;
    b:array [1..n] of integer;
    i,j:integer;

  begin
    clrscr;
    randomize;
    for i:=1 to n do
      begin
        a[i]:=random(21)-10;
        write(a[i]:4);
      end;

    j:=0;
    for i:=1 to n do
    if (a[i] mod 2 <> 0) and (a[i]<>0) then
      begin
        j:=j+1;
        b[j]:=a[i];
      end;

    writeln;
    if j=0 then writeln('No!')
    else
    for i:=1 to j do write(b[i]:4);

    readkey;
  end.

[k0tone]

1) Дан одномерный массив Н(n).Определить индексы всех равных элементов.

program second;

  uses
    crt;

  const
    n=10;

  var
    h:array [1..n] of integer;
    i,j:integer;

  begin
    clrscr;
    randomize;
    for i:=1 to n do
      begin
        h[i]:=random(21)-10;
        write(h[i]:4);
      end;

    writeln;
    for i:=1 to n do
    for j:=1 to n-i do
    if h[i]=h[j+i] then
      writeln(i,'=',j+i);

    readkey;
  end.