Составьте программу рисования отрезков, исходящих и центра графического окна (рис. 3.19, а, б).
​

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

виды алгоритмов по способу записи 

1)текстовый

2)графический.

виды алгоритмов по последовательности исполнения шагов-команд

1)линейный

2)разветвляющийся

месяцы,каждый месяц в каждом времени года-это и есть классификация