fkn+antitotal

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

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

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

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

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

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

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

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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

Задача 4 Урок 14

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

Задача 3 Урок 14

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

var
   a, b: integer;
   procedure inicializacia(x: integer; var y: integer);
   begin
     y:= x;
   end;
begin
  writeln('Vvedite celoe chislo');
  readln(a);
  inicializacia(a, b);
  writeln(b);
  readln();
end.

Задача 2 Урок 14

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

   procedure sum(x, y, z: integer);
   begin
     writeln (x + y + z);
   end;
begin
  sum(2, 3, 5);
  readln();
end.

Задача 1 Урок 14

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

 function sum(x, y, z: integer): integer;
   begin
     result:= x + y + z;
   end;
begin
  writeln(sum(2, 3, 5));
  readln();
end.

Задача 5 Урок 13.2
Предварительная справка: настоящие счеты выглядят как-то так (кости, с помощью которых отсчитывают число разрядов, нанизаны на спицы):
счеты
В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задача 4 Урок 13.2

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

если ноль, то все кости справа:
---++++++++++
если три, то значащая часть слева, а все остальное справа:
+++---+++++++
если девять:
+++++++++---+