fkn+antitotal

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

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

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

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

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

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

Задайте в коде программы массив из семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.

type
  myArr = array[1..7] of integer;
var
  a: myArr;
  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. 

Вывод консоли:

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой". ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках)

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

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

var a, b, c: integer;
procedure sum(q, w, e: integer);
begin
  writeln(q + w + e);
end;
begin
  writeln('write 3 nums');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.  

Вывод консоли:

Задача 1 Урок 14.2:

Напишите функцию, которая возвращает сумму трёх целых чисел.

var a, b, c: integer;
function sumOf3(x, y, z: integer):integer;
begin
  result:= x + y + z;
end;
begin
  writeln('write 3 nums');
  readln(a,b,c);
  writeln(sumOf3(a,b,c));
  readln();
end. 

Вывод консоли:

write 3 nums
2
3
4
9