Program ArrayAverage; var a: Array [1..5] of Integer; i: Integer; b: Real; Begin b := 0; WriteLn('Введите 5 целых чисел через пробел и нажмите Enter'); For i := 0 To 4 Do Begin Read(a[i]); End; For i := 0 To 4 Do Begin b := b + a[i]; End; b := b / 5; Write('Среднее арифметичиское: '); WriteLn(b:10:2); End.
Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой). Предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. Для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. Для дробной части незначащие нули - последние и мы будем их искать в последней тетраде. Первая тетрада - представление 1(16)=0001(2). Левые три нуля незначащие и их удаляем, остается 1. Последняя тетрада - представление Е(16)=1110(2). Тут один незначащий ноль - правый, остается 111.. Остальные тетрады переписываем без изменения. 12АС,6Е(16)=1 0010 1010 1100 , 0110 111 (2) Считаем количество нулей в записи: 9. Это и есть ответ. Комментарии Отметить нарушение
function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
var a: Array [1..5] of Integer;
i: Integer;
b: Real;
Begin
b := 0;
WriteLn('Введите 5 целых чисел через пробел и нажмите Enter');
For i := 0 To 4 Do
Begin
Read(a[i]);
End;
For i := 0 To 4 Do
Begin
b := b + a[i];
End;
b := b / 5;
Write('Среднее арифметичиское: ');
WriteLn(b:10:2);
End.