ТЕМА МАССИВЫ Практическая работа: Составить три программы, по своему условию. 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