Program zd4;
uses CRT;
type mas=array[1..20,1..20] of real;
var A:mas; g,b,i,j,n,m,nom1,nom2:integer; max:real;
Begin
clrscr;
write ('Введите размер массива: ');
readln (n,m);
write ('Введите диапазон чисел в массиве: ');
readln (g,b);
Randomize;
For i:=1 to n do
Begin
For j:=1 to m do
Begin
A[i,j]:=random(b-g)+g;
write (A[i,j]:5:0,' ');
End;
writeln;
End;
nom1:=1;
nom2:=1;
max:=a[1,1];
For i:=1 to n do
Begin
For j:=1 to m do
Begin
If a[i,j]>max then
Begin
max:=A[i,j];
nom1:=j;
nom2:=i;
End;
End;
End;
writeln ('Максимальный элемент массива= ',max:5:0,' ,его координаты ','[',nom1,',',nom2,']');
readln;
End.
Так?
Поделитесь своими знаниями, ответьте на вопрос:
Алфавит племени Тумба 32 символа, алфавит племени Юмба – 64 символа. Вожди племен обменялись сообщениями. Письмо племени Тумба содержало 80 символов, а письмо племени Юмба – 70 символов. Объем письма какого племени был больше?
Можем отдельно узнать объёмы.
Алфавит племени Тумба:
N = 32
N = 2 ** i
i = 5
k = 80
I = 80 * 5 = 400 бит (объём сообщения племени Тумба)
Алфавит племени Юмба:
N = 64
N = 2 ** i
i = 6
k = 70
I = 70 * 6 = 420 бит (объём сообщения племени Юмба)
Получается, что объём сообщения племени Юмба больше на 20 бит.