Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Шесть единиц само число будет записано как 101110011
Решение #1
var a:array[1..1000] of integer;
s,i,k,N:integer;
begin
s:=0;
k:=0;
read(N);
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
Решение #2;
var a,i,s,k,N:integer;
begin
k:=0;
s:=0;
read(N);
for i:=1 to N do begin
read(a);
if a<0 then begin
k:=k+1;
s:=s+a;
end;
end;
write(s/k);
end.
Оба решение дают <u>один</u> результат, но первое сделан массивом, а второе простым перебором чисел.
Формат входных данных
Задается натуральное число N
Затем задается N целых чисел
Формат выходных данных
Целое число - среднее арифметическое всех отрицательных чисел
<u><em>Пример</em></u>
<em>Вход</em>
<em>5</em>
<em>1 -2 3 -4 5</em>
<em>Выход</em>
<em>-3</em>
<span>Вопросы в ЛС</span>
3+3=6
6*4=24
24+3=27
27+3 = 30
30*4 = 120
Итого: 12112
Решая, шла от противного (120/4 и доходила до делимости на 4)