Program prl; uses crt; var i,n,summa:integer; srednee:real; a:arra[1..100] of integer; begin write('Введите кол-во четных элементов'); readln(n); summa:=0; for i:=1 to n do begin write('Введите ',i,' элемент:'); readln(A[i]); summa:=summa+A[i]; end; srednee:=summa/(n div 2); writeln('Среднее арифметическое',srednee:3:2);// readln; end.
Var a:array [1..1000] of integer; i,n,sum:integer; begin randomize; write('Введите максимальное число массива:'); Readln(n); begin for i:=1 to n do a[i]:=random (20)+20; end; Writeln('Массив состоит из следующих чисел:'); for i:=1 to n do write(' ',a[i]); Writeln(); sum:=0; for i:=1 to n do if a[i] mod 2 = 0 then sum:=a[i]+sum;
1)условное обозначение: Д-девочка Б-блондин Л-любит математику ДБ-девочки блондинки БЛ-блондины,любящие математику ДЛ-девочки,любящие математику ДБЛ-блондинка,которая любит математику Д=20-11-5-1=3 Б=24-1-11-11=1 Л=17-5-1-11=0 ДБ=12-1=11 БЛ=12-1=11 ДЛ=6-1=5 ДБЛ=1 всего человек в классе:Д+Б+Л+ДБ+БЛ+ДЛ+ДБЛ=3+1+0+11+11+5+1=32 Ответ:32 человека всего в классе.
Представим 126 в двоичной системе. Это 1111110. Тогда число которое поступило является 11111=> 16+8+4+2+1=31 Запишем по алгоритму, что должно получиться при вводе числа 11111. складываем и делим на 2. Остаток 1. Пишем 111111 дальше ещё раз складываем и делим. Получаем 1111110. Но число должно быть больше чем 126=> нам будет подходить число 1111111=>127. Минимальное число будет 127.