Кумир.заполните массив из 20 чисел с генератора случайных чисел от 1 до 20 и найдите среднее значение элементов массива.

Алг нач цел б,ср=0, цел таб а[1: 20] нц для б от 1 до 20 а[б]: =int(rnd(20)) ср: =ср+а[б] кц вывод (ср/20) кон

  program blankword;

uses crt;

var s1: string;

        l: integer;

begin

      clrscr;

      write('введите слово: ');

      readln(s1);

      l=length(s1);

 

      for i: =l downto 1 do          if(i mod 2 = 0)then              insert(' ', s1, i);               writeln(s1);               readkey;

     

  end.

 

 

жили были клавиатура,мышь,и компьютер.жили они хорошо, пока не возник у них спор: кто из них самый главный! каждый начал доказывать, что именно он главный! первой отозвалась мышка: «я сама маленькая, значит я главнее! »

потом сказала клавиатура: «я самая главная, потому что я знаю множество языков! »

тут возмутился компьютер : «я среди вас самый главный! все, кто работает с монитором , смотрит только на меня, я всем нужен! »

они так спорили, пока не решили, что без них невозможно работать. на том и решили и после этого уже больше не ссорились, а жили долго и счастливо.