fkn+antitotal

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

Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.

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

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.

Урок 16. Задача 3.

Есть функция, которая считает сумму четырех чисел:

function sum4(a, b, c, d: integer): integer;
begin
  result := a + b + c + d;
end;

Реализуйте обертку над sum4(), которая делает то же самое, но имеет сигнатуру вида:

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

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

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

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

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

Задача 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 элементов. Найдите из них самое большое число и выведите его на экран.

program u15z4;
type
  myArr=array [1..7] of integer;
var a: myArr;
    i,b: integer;

begin
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite element massiva nomer ', i, ':');
    readln(a[i]);
    if (a[i]>b) then
      b:=a[i];
  end;
  write('max = ',b);
  readln();
end.