Var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
<span>end.</span>
Пример реализации при помощи функции "поиск решения" в Excel
Массив вводим с клавиатуры или иного устройства ввода.
Создание программы для нахождения среднего арифметического + вывод среднего арифметического на экран.
i - цикловая переменная
sra - среднее арифметическое всех элементов массива
s - сумма всех элементов массива
var
А:array [1..30] of real;
i:integer;
sra,s:real;
begin
s:=0;
for i:=1 to 30 do
begin
readln (a [ i ]);
s:=s+a[i];
end;
sra:=s/30;
writeln (sra)
end.
Var a,k,s :integer;
sr:real;
begin
s:=0;
a:=12;
k:=0;
repeat
s:=s+a;
k:=k+1;
a:=a+1;
until (a>99);
sr:=s/k;
writeln (sr);
end.