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.
Program Task; Var a: Array [1..40] of Integer; b: Real; c, d, e, i: Integer; Begin Randomize; For i := 1 To 40 Do a[i] := Random(20 + 1); WriteLn('Массив:'); For i := 1 To 40 Do Write(a[i], ' '); WriteLn; For i := 1 To 40 Do Begin If a[i] Mod 2 = 1 Then Begin b := b + a[i]; c := c + 1; End; If a[i] <= 10 Then d := d + a[i]; If a[i] Mod 3 = 0 Then e := e + a[i]; End; WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2); WriteLn('Сумма чисел, не превышающих 10: ', d); WriteLn('Сумма чисел кратных 3: ', e); ReadLn; End.