fkn+antitotal

В линуксе клавишу win называют Super или Command
Ну а в windows как уже понятно ее называют "win", мы будем придерживаться терминологии linux, по многим известным соображениям

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

Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.

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

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

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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

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

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

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

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

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

program u142z2;
var a: integer;

procedure p1 (var x: integer);
begin
  write('Vvedite chislo');
  readln(x);
end;

begin
  p1(a);
  writeln(a);
  readln ();
end.  

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

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

program u142z1;
var a,b,c:integer;
function sum(d,e,f: integer): integer;
begin
  summa:=d+e+f;
end;

begin
  writeln('Vvedite A,B,C ');
  readln(a, b, c);
  writeln('Summa=: ', sum (a, b, c));
  readln ();
end.      

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

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

- - - - - -
- - - - - -
- - - - - -
- - - - - -

- для вывода очередной строки используйте процедуру.

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

Пользователь по запросу программы вводит в цикле целые положительные числа, до тех пор пока не введет число большее 30. В ответ на каждое введенное пользователем число выводите все числа от 1 до этого введенного числа m.
При этом:
за выводит чисел от 1 до $m должна отвечать процедура
получение значения должно проходить в теле основной программы

Задача 5 Урок 14.1:
У вас есть код:

var b: integer;
 
procedure p2();
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
 
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end. 

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