Под алфавитом следует понимать набор букв, знаков препинания, цифр, скобок и др. символов, используемых в тексте. В алфавит также следует включить и пробел, т. е. пропуск между словами
for I : byte := 1 to 10 do a[i] := random(1, 60000);
max := 0; for I : byte := 1 to 10 do if a[i] > max then max := a[i];
writeln(max*3);
end.
Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.
Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
