Const
n = 5;
var
a: array[1..n, 1..n] of integer;
i, j, m, nmax, nmin, jmax, jmin: integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
nmax := -100;
nmin := 100;
for j := 1 to n do
begin
a[i, j] := Random(24) - 8;
if nmax < a[i, j] then
begin
nmax := a[i, j];
jmax := j
end;
if nmin > a[i, j] then
begin
nmin := a[i, j];
jmin := j
end;
write(a[i, j]:4)
end;
writeln;
a[i, jmax] := nmin;
a[i, jmin] := nmax
end;
writeln(#13#10, 'Результирующий массив');
for i := 1 to n do
begin
for j := 1 to n do write(a[i, j]:4);
writeln
end
end.
Тестовое решение:
Исходный массив
-4 8 3 7 5
-7 -7 1 8 0
14 0 0 1 -1
14 7 -5 -1 14
7 6 1 -6 14
Результирующий массив
8 -4 3 7 5
8 -7 1 -7 0
-1 0 0 1 14
-5 7 14 -1 14
7 6 1 14 -6
Введение
Клавиатура - это одна из основных частей компьютера. С её помощью вводят алфавитно-цифровые данные и управляют работой компьютера.
Сегодня существуют различные варианты дизайна клавиатур. Также клавиатуры различаются по функциональности.
Клавиатура - это то, что наряду с мышкой находится в непосредственном контакте с пользователем, соответственно во многом определяет комфортно или не очень вы будете себя чувствовать при работе с компьютером.
Кто-то скажет, что клавиатура - пережиток, и что сейчас мышка необходима гораздо чаще, чем клавиатура. Это и правда, и нет. С одной стороны мы живем в век тотального засилья Windows, но даже эта операционная система, с ее графическим интерфейсом, не может полностью обойтись без клавиатуры. Ведь еще не придумали другого устройства ввода текста. Конечно, делаются множественные попытки в разработке систем распознавания речи, но они не то чтобы далеки от совершенства, они просто чудовищно от него далеки. Также предпринимаются попытки распознавания почерка, но и эти системы также не совершенны. А если вы работаете в терминале, какой-нибудь ДОСовой программе или просто общаетесь в чате, то без клавиатуры точно не обойтись.
По иерархическому принципу. Сначала домены верхнего уровня, затем второго и третьего
- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
Так как символов у 2 племени в 8 раз больше, то на кодирование одного символа 2-ое племя расходует на 3 Бита больше (N=2^i, i2>i1 на 3 бита)
пусть у — количество бит на 1 символ у 1-го племени, тогда у+3 у второго.
пусть z-количество символов в приветствии
30 байт*8=240 бит т.е В приветствии 2-го племени на 240 бит информации больше, чем в приветствие первого. составим уравнение:
z(y+3)-z*y=240
....................
z*3=240
z=80 Символов