fkn+antitotal

Задача 13 Урок 15

Пусть есть процедура, которая умеет сдвигать массив влево на 1 элемент, начиная с указанного символа (устанавливая последний элемент равным нулю):

type newArr = array [1..5] of integer;
procedure shiftArr(var promArr: newArr; k:integer);
var j:integer;
begin
for j:=k to 4 do
promArr[j]:=promArr[j+1];
promArr[high(promArr)]:=0;
end;

Задача 12 Урок 15 :

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.

Задача 11 Урок 15 :

Заполнить массив из 9 элементов случайными числами из диапазона от нуля до N, и затем удалите из этого массива все элементы равные M причем удаление необходимо производить "сдвигом" влево оставшихся элементов на позиции элементов, совпавших с M.

Задача 10 Урок 15 :

Задача 9 Урок 15 :

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.

Задача 8 Урок 15 :

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

Задача 7 Урок 15:

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

Задача 6 Урок 15 :

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

Задача 5 Урок 15

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

Задача 4 Урок 15 :

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.