Дан массив а: array [1..30] of real. создать программу для нахождения среднего арифметического всех элементов массива. )

массив вводим с клавиатуры или иного устройства ввода.создание программы для нахождения среднего арифметического + вывод среднего арифметического на экран.i - цикловая переменнаяsra - среднее арифметическое всех элементов массиваs - сумма всех элементов массиваvar а: array [1..30] of real;   i: integer; sra,s: real; begins: =0; for i: =1 to 30 do beginreadln (a [ i ]); s: =s+a[i]; end; sra: =s/30; writeln (sra)end.

uses crt; var a: array [1..30] of real; i: integer; sr,s: real; begin  clrscr;   randomize;   s: =0;   for i: =1 to 30 do  begin    a[i]: =random(100)-50;     write(a[i],' ');     s: =s+a[i];   end;   sr: =s/30;   write('sr=',sr); end.

Это сделает логическое выражение (a mod 2)+(b mod 2) = 1 объяснение: оператор mod возвращает остаток от целочисленного деления операндов. a mod 2 будет равно нулю, если a четное или единице, если а нечетное. то же верно и для b mod 2. рассмотрим поведение суммы (a mod 2)+(b mod 2) при различных комбинациях a и b 1. оба нечетных. сумма равна 1+1, т.е. 2 2. одно четное, другое нечетное. сумма равна 1+ 0 (или 0+1), т.е. 1 3. оба четных. сумма равна 0+0, т.е. 0. следовательно, сумма равна единице тогда и только тогда, когда одно из чисел четное, а другое нечетное. оставшаяся часть выражения превращает его в логическое, проверяя условие 1=1. предлагаемое логическое выражение может быть использовано как в качестве правой части оператора присваивания, так и в качестве логичесвого выражения в операторах if-then-else или циклов while, repeat.

Трехзначное число в системе счисления по основанию p может быть записано, как разница между максимальным и минимальным трехзначными числами должна превышать десятичное число 200 (пока не будем учитывать дополнительное ограничение на несимметричность), т.е. в целых числах получаем условие p≥6, т.е. основание системы счисления не может быть меньше 6. найдем, сколько трехзначных чисел можно получить в системе счисления с основанием 6: симметричными будут числа вида 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 6. итого получается пять групп, в каждой из которых шесть чисел, т.е. всего трехзначных симметричных чисел может быть 30. следовательно, в системе счисления по основанию 6 можно записать 215-30=185 трехзначных несимметричных чисел, что меньше ограничения 200. проверим систему счисления по основанию 7: симметричными будут числа вида 6х6, 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 7. итого получается шесть групп, в каждой из которых семь чисел, т.е. всего трехзначных симметричных чисел может быть 42. следовательно, в системе счисления по основанию 7 можно записать 342-42=300 трехзначных несимметричных чисел, что превышает ограничение 200. ответ: 7