Var N, i: integer; // N - переменная хранения количества чисел, которое введет пользователь A: array[1..20] of integer; // массив, содержащий САМИ ЧИСЛА, которые введет пользователь begin write('Сколько чисел вы собираетесь ввести? '); readln(N); for i := 1 to N do begin write('Введите ', i, ' число: '); // ввод чисел readln( A[ i ] ); end; write('Из них числа от 20 до 75, кратные 4: '); for i := 1 to N do begin if ( A[ i ] >= 20 ) and ( A[ i ] <= 75 ) then // проверяем в каком промежутке лежит число if ( ( A[ i ] mod 4 ) = 0 ) then write( A[ i ], ' '); // если число меньше 75 и больше 20, тогда проверяем кратно ли оно четырем. Если да, то выводим его end; end.
1. Сообщение о том, что выбран 1 из 4 равновозможных вариантов содержит log2(4) = 2 бита информации (2^2 = 4).
2. Всего символов 150 * 40 * 60 = 360 000. Если считать, что каждый символ кодируется одним байтом, получится 360 000 байт = 351,6 Кбайт (1 Кбайт = 1024 байт)
3. На каждый символ отводится log2(64) = 6 бит, а объём документа 0,75 Кбайт = 0,75 * 1 024 байт = 0,75 * 8 * 1 024 бит = 6 144 бит. Поэтому общее количество символов 6 144 / 6 = 1024. На одну страницу приходится 1024 / 32 = 32 символа.
1) const n=?; //Сюда поставить любое нужное n Var a:array[1..n] of real; i,x,k:integer; s:real; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; s:=0; k:=0; for i:=1 to n do begin s:=s+a[i]; k:=k+1; end; s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); readln; End.
2) Const n=?; Var a:array[1..n] of integer; i,max,min:integer; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; min:=a[1]; max:=a[1]; for i:=1 to n do if (i mod 2)=0 then if a[i]>max then max:=a[i]; for i:=1 to n do if (i mod 2)<>0 then if a[i]<min then min:=a[i]; writeln('max=',max); writeln('min=',min); readln; End.
A: array[1..20] of integer; // массив, содержащий САМИ ЧИСЛА, которые введет пользователь
begin
write('Сколько чисел вы собираетесь ввести? ');
readln(N);
for i := 1 to N do begin
write('Введите ', i, ' число: '); // ввод чисел
readln( A[ i ] );
end;
write('Из них числа от 20 до 75, кратные 4: ');
for i := 1 to N do begin
if ( A[ i ] >= 20 ) and ( A[ i ] <= 75 ) then // проверяем в каком промежутке лежит число
if ( ( A[ i ] mod 4 ) = 0 ) then write( A[ i ], ' '); // если число меньше 75 и больше 20, тогда проверяем кратно ли оно четырем. Если да, то выводим его
end;
end.