ТЕМА МАССИВЫ Практическая работа: Составить три программы, по своему условию.
1) Линейный алгоритм;
2) Ветвление;
3) Цикл.
Это всё по теме массивы нужно, заранее

1)program primer1;

var х,у,z:integer;

{ описание переменных }

begin { начало программы }

х := 3; { установка значения х }

у := 5; { установка значения у }

z := х + у; { вычисление суммы }

write(z); {вывод результата вычисления на экран }

end. { конец программы }

2) program vetvlenija;

uses crt;

var A:real;

begin

clrscr;

write ('Введите число A: ');

readln (A);

if A>=0 then

writeln ('Вы ввели положительное число');

readln

end.

3) program cikle;

var

i, n: integer;

begin

write ('Количество знаков: ');

readln (n);

 for i := 1 to n do

write ('(*) ');

readln

end.

Объяснение:

1) линейный, без ничего

2) ветвление - if then

3) цикл - for