Заполнит массив состоящий из 10 элементов который задает пользователт в атомотическом режиме. вывести на экран элементы индексов которых заканчиваються на ноль

Var a: array[1..10] of integer; i: integer; begin for i: =1 to 10 do read(a[i]); for i: =1 to 10 do if a[i] mod 10 = 0 then write(i,' '); end.

Var   a, b: real; begin   write('введите два числа через пробел ');   readln(a, b);   writeln('среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);   writeln('среднее модулей равно ', sqrt(abs(a * end. тестовое решение: введите два числа через пробел -13.5 17.43 среднее арифметическое кубов равно 1417.4722035 среднее модулей равно 15.3396544941534 ********************** замечание: вместо произведения модулей при вычислении среднего достаточно взять модуль произведения - в любом случае получится требуемое положительное число.

При алфавитном подходе рассматривается не содержание текста, а его размер. зная количество символов в алфавите (это его мощность n), определяем информационный вес i алфавита в битах,используя формулу 2^i=n  , затем по формуле j=k*i определяем информационный объем текста (количество информации) k-количество символов в тексте например, текст составлен на современном компьютере ( алфавит -прописные и строчные,   алфавит-загл и прописные, цифры, знаки)  всего 256 символов значит мощность алфавита n=256   информационный вес символа i получаем из равенства  2^i=256   i=8 бит   (2^i=n) считаем количество символов к текста, включая пробелы и по формуле считаем j- информационный объем (получаем в битах) если необходимо полученный результат переводим в более крупные единицы.