Придумайте свой шрифт и составьте из него слова "Берегите планету"

Шрифт?

Объяснение:

Можешь по-подробнее объяснить?

6) const n=10; var a: array[1..n] of integer; i,max,min : integer; beginrandomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i]: 3); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to n do begin if a[i] > max then max: =a[i]; if a[i] < min then min: =a[i]; end; writeln('l = ',max-min); end.пример: исходный массив: 10 8 8 6 4 16 18 10 11 13l = 149)const n=10; var a: array[1..n] of real;     i,k1,k2 : integer; beginrandomize; writeln('исходный массив: '); for i: =1 to n do begin  a[i]: =10*random-5;   write(a[i]: 5: 2);   end; writeln; k1: =0; k2: =0; for i: =1 to n do  if a[i]> 0 then k1: =k1+1  else if a[i]< 0 then k2: =k2+1; writeln('положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2); end.пример: исходный массив: -1.03 2.79-3.60 0.33-3.69-4.69-2.34-4.19 1.20 1.74положительных: 4, отрицательных: 6 нулевых: 016)const n=10; var a: array[1..n] of real;     i : integer; beginfor i: =1 to n div 2 do begin  a[i]: =i;   a[n div 2+i]: =sin(a[i]);   end; for i: =1 to n div 2 do  writeln(a[i]: 4: 1,a[n div 2+i]: 6: 2); end.пример: 1.0 0.842.0 0.913.0 0.144.0 -0.765.0 -0.9619)const n=10; var a: array[1..n] of integer;     i: integer; beginrandomize; writeln('исходный массив: '); for i: =1 to n do begin  a[i]: =random(51);   write(a[i]: 5);   end; writeln; writeln('выбранные элементы: '); i: =1; while i< =n do  begin  write(a[i],' ');   i: =2*i;   end; end.пример: исходный массив: 8 38 22 45 36 23 21 13 5 13выбранные элементы: 8 38 45 13