var
i:integer;
s:string;
begin
write('Введите имя: ');
readln(s);
for i:=1 to 7 do
begin
write(s);
writeln(' Скоро каникулы!');
end;
end.
Количество вхождений символа в строку, а также позиция символа в строке - это целочисленные величины. Если язык программирования допускает множество представлений целых величин, можно выбирать любое из них, поскольку найденные значения будут лежать в диапазоне [1;20] - по количеству символов в строке.
16 Мб * 1000 = 16 000 Кб
16 000 Кб * 1000 = 16 000 000 байт
16 000 000 байт * 8 = 128 000 000 бит
Так как нужны только 3 и 4 элементы, полностью массив можно не рассматривать, достаточно рассмотреть элементы 3 и 4.
Массив заполняется следующим образом:
Если индекс элемента четный, то элементу присваивается i/2.
Если индекс элемента не четный, то элементу присваивается (i+1)/2
У элемента a[3] индекс равен 3, нечетный, значит ему будет присвоено (3+1)/2 = 2
У элемента a[4] индекс равен 4, четный, значит ему будет присвоено 4/2 = 2
Получается, что элемент a[3]=2 и a[4]=2, среднее арифметическое 2.