Зашифровка '100612' с ключём '100500': 000312
6144 байт = 49152 бит
49152/12288= 4 бит информационный вес одного символа
N=
символов в алфавите
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
Ты забыл поставить ; после первого else смотри пример в учебнике.
у нас получается следующее:
if x>y then
if x=y then write ('x=y')
else write ('max=',x);
else write ('max=',y);
end.
чтобы тебе было проще, выстраивай иерархию вложенности, т.е если у тебя есть вложенное условие, цикл и другие структуры, выделяй их пробелами как на рисунке в учебнике
