Напишите программу, заполняющую одномерный массив случайными числами, и подсчитывающий количество элементов из диапазона от 20 до 40 ,или печатающих что таких нет
var i, n: longint; a: array[1..10] of real; amin, amax, p: real; begin assign(output, 'output.txt'); rewrite(output); readln(n); if n = 2 then begin writeln('0 '); close(output); end else begin p := 1; for i := 1 to n do read(a[i]); amin := a[1]; for i := 1 to n do if amin >= abs(a[i]) then amin := a[i]; amax := a[1]; for i := 1 to n do begin if amax <= a[i] then amax := a[i]; end; if n > 2 then for i := 2 to n - 1 do p := p * a[i]; write(p:0:3); close(output); end; end.
QWERTY При изобретении механических печатных машин не мудрствуя лукаво просто расположили буквы по алфавиту, но поскольку порядок клавиш напрямую был связан с печатающими рычажками, то при большой скорости печати соседние рычажки цеплялись друг за друга и "залипали". Потому раскладку меняли, разводили часто повторяющиеся буквы и одновременно старались замедлить частично скорость печати. Так и появилась QWERTY, которая не смотря на свое несовершенство популярна до сих пор
Клавиатура Дворака При изобретении электрической печатной машинки (где-то 1930г) проблема рычажков отпала и пришла проблема усталости рук машинисток. Потому разрабатывалась эргономичная раскладка, которая заставляла руки чаще чередоваться и одновременно сводила частые буквы в центральный ряд На основе этого же метода была сделана раскладка ЙЦУКЕН, потому что у нас поздно появились печатные машинки (нет худа без добра)
Colemak (2006) Третяя по популярности раскладка. Изза разгрузки мизинцев расскладка даже быстрее Дворака. При этом не сильно отличается от популярной QWERTY, к ней быстрее привыкнуть и удобно нажимать частые сочетания клавиш типа Ctrl+Z, Ctrl+S, которые разрабатывались для QWERTY
Есть и другие расскладки, для определенных задач или идей
a: array[1..10] of real;
amin, amax, p: real;
begin
assign(output, 'output.txt');
rewrite(output);
readln(n);
if n = 2 then
begin
writeln('0 ');
close(output);
end
else
begin
p := 1;
for i := 1 to n do
read(a[i]);
amin := a[1];
for i := 1 to n do
if amin >= abs(a[i]) then
amin := a[i];
amax := a[1];
for i := 1 to n do
begin
if amax <= a[i] then
amax := a[i];
end;
if n > 2 then
for i := 2 to n - 1 do
p := p * a[i];
write(p:0:3);
close(output);
end;
end.