Работа по паскалю на массивы

[Ant1602]

1) Опишите на языке Паскаль алгоритм получения из заданного целочисленного массива размером 30 элементов другого массива,который будет содержать модули значений элементов первого массива(не используя специальной функции,вычисляющей модуль числа).

2) Опишите на языке Паскаль алгоритм подсчета среднего значения четных элементов в заданном целочисленном массиве из 30 элементов,проверяя,что в нем есть хотя бы один четный элемент.

3) Опишите на языке Паскаль алгоритм подсчета произведения положительных элементов в заданном целочисленном массиве из 30 элементов,проверяя,что в нем есть хотя бы один положительный элемент.

4) Опишите на языке Паскаль алгоритм вычисления разности максимального среди элементов,имеющих четные значения, и максимального среди элементов,имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов(в предположении,что в массиве есть и четные ,и нечетные элементы).

5) Опишите на языке Паскаль алгоритм вычисления минимальной разности двух последовательных значений элементов(из последующего вычитается предыдущий) в заданном целочисленном массиве из 30 элементов.

6) Опишите на языке Паскаль алгоритм подсчета максимального количества подряд идущих элементов,каждый из которых меньше предыдущего,в целочисленном массиве длины 30.

7) Опишите на языке Паскаль алгоритм нахождения номера элемента в целочисленном массиве из 30 элементов, наименее отличающегося от среднего значения элементов. Если таких элементов несколько, то можно указать номер любого из них. Можно пользоваться функцией ABS, вычисляющей абсолютную величину своего аргумента.

8) Дано два целочисленных массива А и В из 30 элементов каждый. Опишите на языке Паскаль алгоритм,который записывает в каждый элемент массива В с индексом k сумму всех элементов массива А,с индексами,не превосходящими k.

9) Опишите на языке Паскаль алгоритм поиска номера элемента в целочисленном массиве из 30 элементов,приращение которого при переходе к следующему элементу(т.е. разность между следующими элементом и текущим) максимально. (Если таких элементов несколько, то можно выбрать любой из них.)

10) Опишите на языке Паскаль алгоритм подсчета среднего значения отрицательных элементов в целочисленном массиве из 30 элементов,если в массиве есть хотя бы один отрицательный элемент.


Решить пожалуйсто, нужно очень

[Naeel Maqsudov]

1)

Код: Выделить всё

for i:=1 to 30 do begin
  if a[i]>=0 then 
    b[i]:=a[i]
  else  {if a[i]<0}
    b[i]:=-a[i];
end;

2)

Код: Выделить всё

Sum:=0; Count:=0;
for i:=1 to 30 do begin
  if (a[i] mod 2)=0 then begin {четный}
    Sum:=Sum+a[i];
    Count:=Count+1;
  end;
end;
if Count>0 then {есть четные элементы}
  Average:=Sum/Count
else {нет четных элементов}
  writeln('Четных элементов не было');

[Хыиуду]

3. for i:=1 to 30 do
if a>0 then inc(s,a)
if s=0 then writeln('Положительных не было!') else writeln(s);

[(kate)]

Ребята помогите СРОЧНО лабу по информационным технологиям!!!!!

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

1) номер максимального по модулю элемента массива;

2) сумму элементов массива, расположенных после первого положительного элемента.