Чем удобнее алфавит по сравнению с для передачи сообщений с телеграфного кода бодо?

Внем меньше букв и слова читаются легче

1.

const n=10;

var a: array [1..n] of integer;

i: integer;

begin

for i: = 1 to n do read (a[i]);

write('                           массив: ');

for i: = 1 to n do write (a[i],'   ');

writeln;

write('массив в обратной последовательности: ');

for i: = n downto 1 do write (a[i],'   ')

end.

2.

const n=10;

var a: array [1..n] of integer;

i,s: integer;

begin

for i: = 1 to n do read (a[i]);

write('массив: ');

for i: = 1 to n do write (a[i],'   ');

writeln;

write ('номера нулевых элементов: ');

for i: = 1 to n do if a[i]< 0 then

begin

a[i]: =0;

write(i,' ')

end

end.

3.

const n=10;

var a: array [1..n] of integer;

i,sp,kp,so,ko: integer;

begin

for i: = 1 to n do read (a[i]);

write('массив: ');

for i: = 1 to n do write (a[i],'   ');

writeln;

for i: = 1 to n do

begin

if a[i]> 0 then

begin

sp: =sp+a[i];

kp: =kp+1

end;

if a[i]< 0 then

begin

so: =so+a[i];

ko: =ko+1

end;

end;

writeln('среднее арифметическое положительных элементов массива равно ',sp/kp: 0: 3);

writeln('среднее арифметическое отрицательных элементов массива равно ',so/ko: 0: 3)

end.

Program ryazantsev; var n,k,i,b,sum: integer; begin readln(n,k); sum: =trunc((1+n)/2*n); //преобразование типа real к int, trunc можно безопасно использовать, т.к. сумма n членов арифметической последовательности целых чисел - всегда целое число if sum mod k < > 0 then writeln(0) else begin for i: =1 to k do begin b: =1; while b< n/k do begin write(i+b-1, ' ', n-i-b+2, ' '); b: =b+k end; writeln() end end; end. пример входных данных, при которых программа выведет ноль: 6 2 и ещё, должна быть оценена явно больше, чем на пять )