Program n1; Uses CRT; Const n=5; Var a: array[1..n,1..n] of integer; s,i,j,k,s1: integer; begin For i:=1 to n do begin For j:=1 to n do begin a[i,j]:=random(11); write(a[i,j]:3); end; writeln; end; For i:=1 to n do begin For j:=1 to n do s:=s+a[i,j]; if s1<s then begin s1:=s; k:=i; end; s:=0; end; writeln('Stroka ',k,' so znacheniem ',s1,' - naibolshaya'); readln end.
Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования: А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л, Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь, Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦ Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту. @ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д. Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики. И еще меняется регистр, 1-ая буква маленькая, остальные большие.
Program n1;
Uses CRT;
Const n=5;
Var a: array[1..n,1..n] of integer;
s,i,j,k,s1: integer;
begin
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(11);
write(a[i,j]:3);
end;
writeln;
end;
For i:=1 to n do
begin
For j:=1 to n do
s:=s+a[i,j];
if s1<s then begin s1:=s; k:=i; end;
s:=0;
end;
writeln('Stroka ',k,' so znacheniem ',s1,' - naibolshaya');
readln
end.