В одномерном массиве, состоящем из n целых элементов, вычислить

[acecandra]

В одномерном массиве, состоящем из n целых элементов, вычислить:
А) количество элементов массива, значения которых не превышают
значение квадрата их индексов;
Б) произведение элементов массива, расположенных между первым
и последним отрицательными элементами;
В) поменять местами последний нулевой элемент и первый максимальный элементы.

[digitalis]

Ну и ихде попытки решения - или вообще нуль ?

[Mad_Cat]

a)

количество = 0;
for i= 1 to n do
если Массив[i]<i*i то количество=количество +1

б)

произведение =1;
    i=1;
пока Массив[i]>0 i=i+1
j=n;
пока Массив[j]>0 j=j-1;
for k=i to j do произведение = произведение* Массив[k];

в)

 индекс_максимум=1;
for i= 2 to n do
если Массив[i]>Массив[индекс_максимум] то индекс_максимум=i;
i=n;
пока Массив[i]<>0 i=i-1;
Массив[i]= Массив[индекс_максимум];
Массив[индекс_максимум]=0;

[digitalis]

Ну тут перевести псевдокод в код - для лентяя та ещё работёнка. Готовенькое бы, разжёванное. Тем более ТС не знает, на каком языке ему это нужно изваять. Ada, SmallTalk ?

[Mad_Cat]

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

Ну тут перевести псевдокод в код - для лентяя та ещё работёнка. Готовенькое бы, разжёванное. Тем более ТС не знает, на каком языке ему это нужно изваять. Ada, SmallTalk ?

Вот и я не знаю на каком яп надо(

[newerow1989]

const n=10;
var p:array[1..n] of integer;
    i,i1,i2,count:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   count:=0;
   For i:=1 to n do
      If p[i]<=i*i then
         Inc(count);
   Writeln(count);
   Writeln;

   i1:=1;
   While p[i1]>0 do
      Inc(i1);
   i2:=n;
   While p[i2]>0 do
      Dec(i2);
   count:=1;
   For i:=i1+1 to i2-1 do
      count:=count*p[i];
   Writeln(count);
   Writeln;

   i1:=1;
   For i:=2 to n do
      If p[i]>p[i1] then
         i1:=i;
   i:=n;
   While p[i]<>0 do
   begin
      Dec(i);
      If i<1 then
         Break;
   end;
   If i<1 then
      Writeln('no 0') else
   begin
      p[i]:=p[i1];
      p[i1]:=0;
      For i:=1 to n do
         Write(p[i]:3,'  ');
      Writeln;
   end;
   Readln;
end.

[ViktorR]

Просто напрашивается

Природа-мать! когда б таких людей
Ты иногда не посылала миру,
Заглохла б нива жизни…
                        Н. Некрасов

Mad_Cat

Вот и я не знаю на каком яп надо(

Не перевелись экстрасенсы на земле Русской