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

[Sketch_45]

1. Сформировать массив с помощью арифметической прогрессии, где А[i]=A[i-1]+A[i-2], значения А[1] = 0, A[2] = 2 и вывести его на экран в строчку и в столбик.
2. Составить программу формирования массива из 50 элементов, в которой используется признак Р, в зависимости от значения которого реализовывался бы один из способов задания массива: при Р= -1 с помощью генератора случайных чисел, при Р=0 с помощью формулы А[i] = i +101, при Р=1 с клавиатуры. Сделать вывод сформированного массива на экран.
3. Подсчитать сумму всех элементов и вычислить среднее арифметическое значение элементов массива.
4. Подсчитать количество элементов массива, значения которых больше (меньше) заданного числа К (К ввести с клавиатуры).
5. Заменить все положительные элементы массива на 0, а остальные вывести на экран.
6. Найти максимальный (минимальный) элемент массива и его индекс. Вывести на экран этот максимальный (минимальный) элемент.
7. Вывести на экран номера элементов массива, значения которых равны заданному числу М, а сами значения из массива удалить. На экран вывести заданный и получившийся массивы.
8. Из одного массива сделайте два массива, в один из которых попадут элементы с нечетными индексами, а в другой – с четными.
9. Дан одномерный массив А. Записать все положительные элементы массива А в массив В, а все отрицательные элементы массива А в массив С.
10. Даны одномерные массивы А[1..n], В[1..m]. Построить массив С, в котором сначала размещаются все элементы массива А, затем все элементы массива В.
11. Дан одномерный массив из n элементов. Составить программу упорядочивания элементов массива по убыванию (сортировка отбором), т.е. от большего к меньшему.
12. Написать программу, которая сортирует массив из N элементов по возрастанию методом «пузырька». Протестировать программу на следующих исходных данных:
а) 2 5 1 6 4 10 4 2 б) 1 2 5 6 -4 0 11 12 в) 12 10 6 4 2 1 0.


Помогите решить пожалуйста буду очень благодарин сделал 1,2 и то с помошью друзей зарание всем спасибо!!!

[rubius2008]

3.

s:=0; for i:=1 to n do s:=s+a[i]; {сумма}
sr:=s/n; {среднее арифметическое}

4.

kol_el:=0; for i:=1 to n do if a[i]>k then kol_el:=kol_el+1;

[seilova]

1. Дан одномерный массив. Переписать его элементы в обратном порядке без использования дополнительного массива.
2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых автомобилей.
подскажите плиз как это сделать?

[Sketch_45]

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

1. Дан одномерный массив. Переписать его элементы в обратном порядке без использования дополнительного массива.
2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых автомобилей.
подскажите плиз как это сделать?

я думаю тебе надо новую тему создать а не сдесь писать а то получиться не разбериха

rubius2008 спасибо сегодня попробую сделать пока что 3,4

Ну что больше добрых людей нет

[New man]

1

const n=10; // size arr
var i:integer;
    mas:array[1..n] of integer;
begin
   mas[1]:=0;
   mas[2]:=2;
   for i:= 3 to n do
       mas[i]:=mas[i-1]+mas[i-2];
end;.