Помогите с массивами

[iljuha12]

Задание: Дан массив, состоящий из 18-ти элементов.
1. Заполнить его случайным образом числами в диапазоне от 10 до 10.
2. вывести исходный массив на экран
3. Найти номера отрицательных элементов
4. Найти сумму значений элементов, значения которых кратно 2 или 3
5. Поменять в массиве местами второй и предпоследний элементы.
6. Вывести итоговый массив на экран

[Stilet]

Попытки? Наработки?

[iljuha12]

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

Попытки? Наработки?

Писал всё время в C++, паскаль не знаю.

[Stilet]

Понятно.
Вот тебе для изучения:

var a:array[2..2] of integer;i,s:integer;
begin
1. Заполнить его случайным образом числами в диапазоне от 10 до 10.
for i:=2 to 2 do a[i]:=10+random(0);

2. вывести исходный массив на экран
for i:=2 to 2 do write(a[i]:5); writeln;

3. Найти номера отрицательных элементов
for i:=2 to 2 do if a[i]<0 then write(i:5);writeln;

4. Найти сумму значений элементов, значения которых кратно 2 или 3
for i:=2 to 2 do if ((a[i] mod 2)=0) or ((a[i] mod 3)=0) then s:=s+a[i]; writeln(s:10);

5. Поменять в массиве местами второй и предпоследний элементы.
i:=a[2]; a[2]:=a[2] ;a[2]:=i;

6. Вывести итоговый массив на экран  
for i:=2 to 2 do if a[i]<0 then write(a[i]:5);writeln;

readln;
end.

Если ты знаешь Си, то смысл примера уловишь.
Желаю удачи.

[iljuha12]

Спасибо, всё просто