1. массив 10 элементов с клавиатуры, найти среднее арифметическое первой и второй половины. 2. массив из n элементов максимальное 20 минимальное 2 .найти среднее арифметическое первой и второй половины программы нужны паскаль .
1. var A: array [1..10] of integer; i, sum, k: integer; begin for i:=1 to 5 do read(A[i]); sum:=0; k:=0; for i:=1 to N div 2 do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое первой части=', sum/k); sum:=0; k:=0; for i:=5 to 10 do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое второй части=', sum/k); end.
2. const: N={количество элементов массива}; var A: array [1..N] of integer; i, sum, k: integer; begin for i:=1 to N do read(A[i]); sum:=0; k:=0; for i:=1 to (N div 2) do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое первой части=', sum/k); sum:=0; k:=0; for i:=(N div 2) to N do sum:=sum+A[i]; k:=k+1; writeln('Среднее арифметическое второй части=', sum/k); end.
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString; var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise) .Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count)) .OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0]; Writeln('Чаще других встречается цепочка "',c,'"') end.
Пример TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE Чаще других встречается цепочка "TH"
Замечание: ограничение на длину строки увеличено до 2 млн. символов.
1) Внутренняя нужно для временного хранения программ во время работы компьютера, Внешняя нужно для долгого хранения данных 2) Принцип заключается в том, что команды представляются в битовой форме и хранятся в том же Оперативном Запоминающем Устройстве, что и обрабатываемые данные. 3) Дискретные объекты состоят из отдельных частиц. Например: дом дискретен так как состоит из кирпичей Память состоит из отдельных ячеек – битов. 4) первый вопрос) наименьшая единица измерения информации. второй вопрос) краткое прилагательное, образованное от глагола бить. 5) Во внутренней памяти компьютера все байты пронумерованы. Нумерация начинается с нуля. Порядковый номер байта называется его адресом. Занесение информации в память, а также извлечение ее из памяти, проводится по адресам.
var A: array [1..10] of integer;
i, sum, k: integer;
begin
for i:=1 to 5 do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to N div 2 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=5 to 10 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.
2. const: N={количество элементов массива};
var A: array [1..N] of integer;
i, sum, k: integer;
begin
for i:=1 to N do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to (N div 2) do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=(N div 2) to N do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.