Program Task; Const A = 65; Z = 90; N = 20; Var b: Array[A..Z] of Integer; i, j, max: Byte; s: Array[1..N] of String; Begin WriteLn('Введите ', N, ' строчек большими буквами на английском языке'); For i := 1 To N Do ReadLn(s[i]); For i := 1 To N Do For j := 1 To Length(s[N]) Do If (Ord(s[i][j]) >= A) And (Ord(s[i][j]) <= Z) Then b[Ord(s[i][j])] := b[Ord(s[i][j])] + 1; max := A; WriteLn('В данных предложениях присутствовали такие буквы:'); For i := A To Z Do Begin If b[i] > 0 Then Begin Write(Chr(i), ' '); If b[i] > b[max] Then max := i; End; End; WriteLn; WriteLn('Наиболее встречалась буква ', chr(max)); ReadLn; End.
Потому что египтяне смогли использовать ежегодные разливы Нила в свою пользу с помощью ирригационных систем. Год земледельца делился на три сезона. Сезон разлива Нила приходился па июль-ноябрь. К этому времени вырывали каналы. Поля окружали насыпями, чтобы задержать воду. В месяцы, когда не было сельскохозяйственных работ, крестьян призывали на государственные работы – строительство храмов, гробниц, дорог.
С середины ноября наступал период пахоты. Землю вспахивали сохой или деревянным плугом. В плуг впрягали волов. Египтяне выращивали пшеницу и ячмень. Древний Египет был житницей Древнего мира.
Потому что египтяне смогли использовать ежегодные разливы Нила в свою пользу с помощью ирригационных систем. Год земледельца делился на три сезона. Сезон разлива Нила приходился па июль-ноябрь. К этому времени вырывали каналы. Поля окружали насыпями, чтобы задержать воду. В месяцы, когда не было сельскохозяйственных работ, крестьян призывали на государственные работы – строительство храмов, гробниц, дорог.
С середины ноября наступал период пахоты. Землю вспахивали сохой или деревянным плугом. В плуг впрягали волов. Египтяне выращивали пшеницу и ячмень. Древний Египет был житницей Древнего мира.
Const A = 65; Z = 90; N = 20;
Var b: Array[A..Z] of Integer;
i, j, max: Byte;
s: Array[1..N] of String;
Begin
WriteLn('Введите ', N, ' строчек большими буквами на английском языке');
For i := 1 To N Do
ReadLn(s[i]);
For i := 1 To N Do
For j := 1 To Length(s[N]) Do
If (Ord(s[i][j]) >= A) And (Ord(s[i][j]) <= Z) Then
b[Ord(s[i][j])] := b[Ord(s[i][j])] + 1;
max := A;
WriteLn('В данных предложениях присутствовали такие буквы:');
For i := A To Z Do
Begin
If b[i] > 0 Then
Begin
Write(Chr(i), ' ');
If b[i] > b[max] Then
max := i;
End;
End;
WriteLn;
WriteLn('Наиболее встречалась буква ', chr(max));
ReadLn;
End.