Решить кроссворд 1) приемник информации, имеющийся практически в каждом доме (9 букв) 2) связь, открытая нашим соотечественником в 1895 году. (10 букв) 3) название помехоустойчивого кода. ( 4 буквы) 4) название стороны, принимающей информацию. ( 8 букв) 5) самое современное средство получения информации. (8 букв)

1. телевизор 2. радиосвязь 3. не знаю 4. приемник 5. интернет

Uses crt; const n = 10; var   a: array[1..n] of integer;   i: byte;     sum: integer; begin   clrscr;     for i: =1 to n do       begin       write('a[',i,'] = ');         readln(a[i]);     end;     clrscr;   for i: =1 to n do write(a[i],' ');     writeln;     for i: =1 to n do       if a[i] mod 2 = 0 then inc(sum,a[i]);     writeln('сумма элементов, кратных двум: ',sum);     readkey end.( вот например кратный ) 

Var     s,i,a,k: integer;     m: array[1..20]of integer; begin write('введите а и k: '); readln(a,k); writeln('массив: '); for i: =1 to 20 do   begin   m[i]: =random(20);   write(m[i],' ');   if m[i] mod 2=1   then s: =s+m[i];   end; writeln; writeln('сумма нечетных: ',s); write('искомыe индексы: '); for i: =1 to 20 do   if m[i]> a then write(i,'; '); writeln; writeln('положитеьные, кратые ',k,': '); for i: =1 to 20 do   if (m[i]> 0) and (m[i] mod k=0) then write(m[i],'; ');   end.