fkn+antitotal

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

У вас есть массив:

type
  myArr = array[1..8] of integer; 
var
  a: myArr;

-- целочисленный из 8 элементов.

Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #

Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения неиспользованных ячеек массива выводить ненужно.

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

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

program u15z2;
var a: array [1..7] of integer;
    i: integer;
begin
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite element massiva nomer ', i, ':');
    readln(a[i]);
  end;
  for i:=low(a) to high(a) do
    write(a[i], ' ');
  readln();
end. 

Задача 1 Урок 15:
Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

program u15z1;
var a: array [1..7] of integer;
    i: integer;
begin
  a[1] := 1;
  a[2] := 12;
  a[3] := 45;
  a[4] := 6;
  a[5] := 7;
  a[6] := 18;
  a[7] := 99;
  for i:=low(a) to high(a) do
    write(a[i], ' ');
  readln();
end.    

задача 12 урок 11

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var i: integer;
begin
      i:=15;
      writeln('pervaya cifra ot 15: ', i mod 2);
      writeln('poslednyaya cifra ot 15: ', i div 3);
readln();
end.          

задача 11 урок 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100
(при более оптимальном решении проверка через mod не потребуется)

var i: integer;
begin
   i:=4;
   while i<100 do
    begin
      i:=i+4;
      writeln(i);
    end;
readln();
end.

задача 10 урок 11

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

не могу решить задачу при условии если третье вводимое значение брать не из readln, а присваивать переменной.

задача 9 урок 11

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

в одном витке цикла должен быть только 1 readln()
не использовать "обмен" (т.е. не присваивать одной переменной значение другой)

Задача 8 урок 11

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

Понятие обертки

Подпрограмма-обертка:

• В широком смысла: подпрограмма, которая использует другую подпрограмму
• В более узком смысле: подпрограмма, которая использует другую подпрограмму, и при этом решает похожу/близкую по смыслу или вообще ту же самую задачу.

Без смены сигнатуры

Есть функция, которая умеет считать сумму или разность двух чисел (в зависимости от переданного знака)

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

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m