Объясните! пож скорость чтения школьника старших классов равна 160 слов в мин. (одно слово включает 8 символов какое количество информации в кб прочитает ученик за 7 часов чтения?

При однобайтовой кодировке символа одно слово займет 8 байт. за минуту читается 160 слов, это 160х8=1280 (байт). 7 часов - это 7х60=420 минут и за это время можно прочитать слова с общим объёмом 420х1280=537600 байт. 1 кбайт равен 1024 байта, поэтому объем в килобайтах составит 537600/1024=525 (кбайт). ответ: 525 кбайт.

Var     a: array[1..10000] of shortint;     n,i,p,o: integer; begin randomize; o: =0; p: =0; write('n = '); readln(n); write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(' ',a[i]);       if a[i] < 0 then o: =o+1       else if a[i] > 0 then p: =p+1;       end; writeln; writeln('количество положительных: ',p); writeln('количество отрицательных: ',o); readln end.

Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. затем выведем все элементы, для которых это оказалось правдой. pascal var   i, j, n: integer;   flag: boolean;   a: array[1..10000] of integer;   b: array[1..10000] of boolean; begin   read(n);   for i : = 1 to n do   begin     read(a[i]);     b[i] : = true;   end;   b[n] : = false;   for i : = 1 to n - 1 do     if b[i] then     begin       flag : = true;       for j : = i + 1 to n do         if a[i] = a[j] then         begin           flag : = false;           b[j] : = false;         end;         if flag then           b[i] : = false;     end;   for i : = 1 to n do     if b[i] then       write(a[i], ' '); end.